With Range("A1:A" & Range("A65536").End(xlUp).Row)
Set c = .Find("#VALEUR!", LookIn:=xlValues, lookat:=xlPart)
If Not c Is Nothing Then
firstAddress = c.Address
Do
lignes.Add c.Row
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
For n = lignes.Count To 1 Step -1
Rows(lignes(n)).Delete
Next n