Sub EffaceLigneTableau1()
With Selection
If .Columns.Count > 50 And Selection.Row > 5 Then
If msgbox("Confirmez-vous la supression de la ligne", vbYesNo + vbCritical, "Suppression ligne") = vbYes Then
ActiveSheet.Rows(ActiveCell.Row).EntireRow.Delete
End If
Else
msgbox "Veuillez sélectionner une ligne compléte" & vbLf & "Les lignes 1 à 4 ne sont pas autorisées", vbInformation, "Information"
End If
End With
End Sub