Private Sub BtnSupLigneVoitEntre_Click()
If ActiveCell.Row < 6 Then
MsgBox "vous ne pouvez pas supprimer cette ligne", vbCritical, "Action interdite"
Else
If MsgBox("Etes-vous sur de vouloir supprimer la ligne contenant " & ActiveCell.Value, vbYesNo, "Demande de confirmation") = vbNo Then Exit Sub
ActiveSheet.Unprotect Password:="password"
ActiveCell.EntireRow.Delete
ActiveSheet.Protect "password"
ActiveWorkbook.Save
End If
End Sub