Option Explicit
Sub suplingevde()
Dim i As Long
Application.ScreenUpdating = False
With Sheets("Données")
For i = .UsedRange.Rows.Count To 1 Step -1
If Application.CountA(.Rows(i)) = 0 Or .Range("B" & i).Value = "" Or IsError(.Range("C" & i).Value) Then .Rows(i).Delete
Next i
End With
Application.ScreenUpdating = True
End Sub