Albator,
Excuse moi pour l'oublie :p
Sa se corrige dans les conditions pour marquer "DOUBLON"
Voilà le nouveau code :
Sub Controle()
Dim x As Long, y As Long, z As Long
For x = 2 To 389
For y = 3 To Cells(x, 10000).End(xlToLeft).Column
If Cells(x, 10000).End(xlToLeft).Column = 2 Then Exit For
For z = y + 1 To Cells(x, 10000).End(xlToLeft).Column
If Cells(x, z) = Cells(x, y) And Cells(x, z) <> "" Then Cells(x, 1) = "DOUBLON"
Next
Next
Next
End Sub
Restant à dispo