Private Sub BtnSupprimer_Click()
Dim État As Byte
État = ÉtatCoché(Me.ChkAffilié)
If État > 0 Then
MsgBox "Qu'il soit confirmé ou non, un affilié doit d'abord rétrogader." _
& vbLf & "Suppression refusée. Modifiez ou annulez.", vbExclamation, Me.Caption & " - Supprimer"
ÉtatCoché(Me.ChkAffilié) = État - 1
ElseIf CL.PlgTablo.Rows.Count <= 2 Then
CL.PlgTablo.Rows(LAdr).Resize(, 8).ClearContents: ÉtatCoché(CL.PlgTablo.Cells(LAdr, 9)) = 0
If IsEmpty(CL.PlgTablo.Cells(1, 1).Value) Then CL.PlgTablo.Cells(1, 2).Value = "Bidon 1"
If IsEmpty(CL.PlgTablo.Cells(2, 1).Value) Then CL.PlgTablo.Cells(2, 2).Value = "Bidon 2"
MsgBox "Il ne subsiste plus assez de lignes en """ & FAdress.Name & """" & vbLf _
& "pour pouvoir en supprimer davantage sans saccager le tableau." & vbLf _
& "Essayez un autre jour de supprimer les prénoms bidons.", vbInformation, Me.Caption & " - Supprimer"
Else
CL.PlgTablo.Rows(LAdr).Delete: End If
If ValLgn(1, 10) > 0 Then BtnDésinscrire_Click
If État = 0 Then CL.Actualiser
HabiliterBoutons
End Sub