Sub efface()
Dim derl As Long, i As Long, j As Long, rech
Dim com As Worksheet, dat As Worksheet
On Error Resume Next
Set com = Sheets("Commentaires")
Set dat = Sheets("Data")
derl = dat.Cells(65536, 4).End(xlUp).Row
With dat
For i = 2 To derl
rech = .Cells(i, 4).Value
j = com.Range("d:d").Find(rech).Row
If .Cells(i, 1) = com.Cells(j, 4) Then
com.Cells(i, 1).EntireRow.Delete
End If
Next
End With
On Error GoTo 0
End Sub