Quelqu'un pourait-il m'aider, SVP ?
Comment utiliser la commande 'WorksheetFunction.Vlookup( arg1,arg2,arg3,arg4)' dans ce cas ?
Sub test()
Dim x As Integer
For x = Range('A65536').End(xlUp).Row To 2 Step -1
If Not UCase(Range('A' & x)) Like '*ECHSITE*' Or UCase(Range('A' & x)) Like '*COMMUN*' Then
Rows(x).Delete
End If
Next
End Sub
Merci d'avance.
JCC
:huh: