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