Sub EffaceLigneTableau2()
With Selection
If .Columns.Count > 50 And .Columns.Count > 1 And Selection.Row > 5 Then
Dim L As Long, Txt As String, i As Byte
L = Selection.Row
For i = 2 To 4
Txt = Txt & Chr(10) & Cells(L, i)
Next i
If MsgBox(Txt, vbYesNo + vbCritical, "Suppression ligne") = vbYes Then
If MsgBox("Confirmez-vous la supression de la ligne " & Selection.Row, vbYesNo + vbCritical, "Suppression ligne") = vbYes Then
ActiveSheet.Rows(ActiveCell.Row).EntireRow.Delete
End If
End If
Else
MsgBox "Veuillez sélectionner :" & vbLf & "Qu'une seulle ligne" & vbLf & "Les lignes 1 à 4 ne sont pas autorisées", vbInformation, "Information"
End If
End With