Sub MAcro()
Dim nblignes As Long
Sheets("Feuill1").Select
nblignes = Sheets("Feuill1").Cells(Rows.Count, "B").End(xlUp).Row
For i = 2 To nblignes
If Cells(i, 1) = "NON" Then
Range(Cells(i, 1), Cells(i, 3)).Delete Shift:=xlUp
End If
If Cells(i, 4) = "NON" Then
Range(Cells(i, 4), Cells(i, 5)).Delete Shift:=xlUp
End If
Next i
End Sub