Sub DelRow()
Dim c As Range
Set c = ActiveCell
If Not Intersect(c, Range("B5:E100")) Is Nothing And Selection.Column <> 1 And Selection.Column <> 5 Then
If Selection.Rows.Count > 1 Then
MsgBox "Vous ne pouvez pas supprimer deux lignes à la fois !", vbCritical, "Suppression impossible"
Exit Sub
End If
If Application.CountA(Cells(c.Row, "B").Resize(, 4)) > 0 Then
If MsgBox("Voulez-vous vraiment supprimer l'opération attribuée à (" & ActiveCell & ") ?", vbYesNo, "Confirmation") = vbYes Then
c.EntireRow.Delete
End If
Else
MsgBox "Vous ne pouvez pas supprimer une ligne vide !", vbCritical, "Suppression impossible"
End If
Else
MsgBox "Vous ne pouvez pas supprimer cette ligne car votre sélection est hors zone de suppression", vbCritical, "Suppression impossible"
End If
End Sub