bonjour lorsque je lance ce code le debut fonctionne mais à la fin ca bloque a ce niveau la
For n = 2 To Range("A" & Rows.Count).End(xlUp).Row
Set c = Sheets(Fich).Columns(1).Find(Range("A" & n), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Range("N" & n) = "OK"
Set c = Sheets(Fich).Columns(1).FindNext(c)
la
Loop While Not c Is Nothing And c.Address <> firstAddress End IfNext
For n = 2 To Range("A" & Rows.Count).End(xlUp).Row
Set c = Sheets(Fich).Columns(1).Find(Range("A" & n), LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Range("N" & n) = "OK"
Set c = Sheets(Fich).Columns(1).FindNext(c)
la
Loop While Not c Is Nothing And c.Address <> firstAddress End IfNext