Re : modifier une cellule en modifiant la bonne ligne
le forum, le fil, Laetitia90 merci pour ta réponse, par contre cela ne fonctionne pas ça plante il me dit plein de méchancetés, erreur compil, fin d'instruction attendue
Sub Bouton5_Cliquer()
Dim derC$, i&
derC = [A65536].End(xlUp).Address
For i = Range(derC).Row To 2 Step -1
If Evaluate("COUNTIF(A1:" & derC & ",""" & Cells(i, 1).Value & """)") > 1 Then Cells(i, 1).EntireRow.Cut
Destination = Sheets("Doublons").Range("A65536").End(xlUp)(2)
Next i
End Sub
pourrais tu regarder encore stp