Private Sub RemoveRecord(ByVal RecordNumber As Long)
'ActiveSheet.Unprotect ' enlève la protection et mettre le mot de passe entre "_"
' Suppression de l'enregistrement
' Contrainte : il doit rester un enregistrement
Select Case True
Case rng.Rows.Count = 1 ' Reste 1 enregistrement
MsgBox "Vous devez laisser un enregistrement", vbInformation, "Suppression impossible"
Case MsgBox("Voulez-vous supprimer la ligne sélectionnée", _
vbCritical + vbYesNo + vbDefaultButton2, _
"Suppression de la ligne " & CurrentRecord + 1) =...