Bonjour a tous

Voila un petit problème que je n'arrive pas a solutionner.
Je doit réaliser un tri suivi d'un effacement de mes doublons.
Problème, cela s'effectue sur une boucle correspondant au colonne F à ...
valeur aléatoire

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
'Tri des données par nom et suppression des doublons par colonne
    For h = 1 To U
        Dim q&
        Columns("A:A").Select
        Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
        For q = Range("A65536").End(xlUp).Row To 2 Step -1
            If Cells(q - 1, 5 + h).Value = Cells(q, 5 + h).Value Then
                Cells(q, 5 + h).Delete Shift:=xlUp
            End If
        Next q
        Derlgh = Cells(65536, 5 + h).End(xlUp).Row
        an.Cells(12 + h, 5).Value = Derlgh
    Next h
Voila les première modif que j'ai effectué sur ma boucle existante.

Le problème, maintenant, c'est les A.
Je fais comment pour les remplacer, pour les faire evouler avec ma boucle
soit mettre E+h, on obtient alors F, G, H ...


Merci