Private Sub CommandButton1_Click()
Dim wb As Workbook, c As Range, ws As Worksheet, i As Long, x As Range
Set wb = Workbooks.Open("C:\MesDocs\Excel\monclasseur.xls")
For Each c In Range("A2", Range("A65536").End(xlUp))
For Each ws In wb.Worksheets
Set x = ws.Range("1:1").Find("nom", , xlValues, xlWhole, , , False)
If Not x Is Nothing Then
For i = ws.Cells(65536, x.Column).End(xlUp).Row To 2 Step -1
If c.Value = ws.Cells(i, x.Column).Value Then
If c.Offset(0, 1).Value = ws.Cells(i, x.Column + 1).Value Then ws.Rows(i).Delete
End If
Next i
End If
Next ws
Next c
End Sub