Bonjour,
J'ai un tableau d'une colonne (A) et de n lignes. J'aimerais supprimer les lignes du tableau qui sont identiques. Je ne comprend pas pourquoi mon code de fonctionne pas (je parcours le tableau dans la longueur je pense que ça ne marche pas):
Dim i As Long
Dim j As Long
Dim Lastrowa As Long
Lastrowa = Worksheets("Adys").Cells(65536, 1).End(xlUp).Row
For i = 2 To Lastrowa
For j = 2 To Lastrowa
If Cells(i, 1) = Cells(j, 1) Then
Rows("j : j").Select "zone de l'erreur : incompatibilité de type
Selection.Delete Shift:=xlUp
End If
Next
Next
End Sub
Merci!!