Re : Suppression de ligne
Bonjour,
Essaie ceci :
Sub T()
Set Sh1 = Sheets("Bilan")
Set Sh2 = Sheets("GC-MPR")
For i = Sh1.Range("A65536").End(xlUp).Row To 2 Step -1
Set Trouve = Sh2.Range("A2:A" & Sh2.Range("A65536").End(xlUp).Row).Find(Sh1.Cells(i, 1).Value, LookIn:=xlValues...