Private Sub CommandButton1_Click()
Dim c As Range, ws As Worksheet, i As Long
For Each c In Range("A2", Range("A65536").End(xlUp))
For Each ws In Workbooks("classeur2.xls").Worksheets
For i = ws.Range("A65536").End(xlUp).Row To 2 Step -1
If c.Value = ws.Cells(i, 1).Value Then
If c.Offset(0, 1).Value = ws.Cells(i, 2).Value Then ws.Rows(i).Delete
End If
Next i
Next ws
Next c
End Sub