for each elem in tablocomplet
Sub test2()
Dim tableau, elem, x&, ligne&
tableau = [A1:G20]
For Each elem In tableau
x = x + 1
ligne = x Mod UBound(tableau): If ligne = 0 Then ligne = UBound(tableau)
MsgBox "l'element " & elem & "est en ligne " & ligne
Next
End Sub
Vous ne comprenez pas le français ? Laissez les doublons et utilisez le fichier (2) du post #26.j'ai un probleme dans la colonne N° dossier je peux pas supprimer les doublons je fait comment?