Private Sub Supprimer_Click()
' Cette Macro fonctionne grace a youky, fanfan38 du forum Excel Downloads
If ComboBox1.Value = "" Then
MsgBox ("Veuillez selectionné le Nom/Prénom de l'Agent a suprimer")
Else
If MsgBox("confirmez-vous la supression de cette Agent ?", vbYesNo, "confirmation") = vbYes Then
lig = Application.Match(ComboBox1, Feuil113.[C:C], 0)
n = 7 'départ sur 8 à effacer
If Cells(lig + 8, 3) = ComboBox1 Then n = 8 'si 9 à effacer
If Cells(lig + 9, 3) = ComboBox1 Then n = 9 'si 10 à effacer
Feuil113.Unprotect
Rows(lig & ":" & lig + n).Delete
Feuil113.Protect
End If
End If
ComboBox1.RemoveItem (ComboBox1.ListIndex)
ComboBox1 = ""
End Sub