Bonjour!
Est-ce que les instructions que l'on met dans un then ou un else sont prises dans l'ordre ou non?
Par exemple:
...
If Cells(i, 2).Value = Cells(i + 1, 2).Value Then
compteur1 = compteur1 + 1
i = i + 1
Else
Sheets("Feuil1").Select
Cells(i, 1).Select
'on copie le nom
Selection.Copy
Sheets("Feuil2").Select
'on sélectionne la cellule i+compteur
Cells(2, k + compteur1).Select
k = k + 1
Selection.PasteSpecial Paste:=xlAll, operation:=xlNone, _
skipblanks:=False, Transpose:=True
compteur=compteur+1
End If
Est-ce que 'compteur' est incrémenté tout à la fin ou en même temps que les autres instructions?