Private Sub ButtonSuppNom_Click()
Dim Idx&, NoLigBase&, NoOrdre&, Lig As Long
If ComboBoxBase = "" Then Exit Sub
Idx = ComboBoxBase.ListIndex
Reponse = MsgBox("Confirmez la suppression de " & ComboBoxBase.List(Idx, 0) & " ?", vbQuestion + vbYesNo, "Suppression")
If Reponse <> vbYes Then Exit Sub
NoLigBase = ComboBoxBase.List(Idx, 3)
NoOrdre = Val(TextBoxNoOrdre.Value)
'delete le nom dans base col A à D
Sheets(NomDeLaFeuilBase).Range("A" & NoLigBase & ":D" & NoLigBase).Delete Shift:=xlUp
'delete le nom dans feuille formation Col A à I
For Index1 = 1 To ListView1.ListItems.Count
NomDeLaFeuilFormation = ListView1.ListItems(Index1).ListSubItems(6).Text
With Sheets(NomDeLaFeuilFormation)
On Error Resume Next
Do
Lig = 0 ' Mettre à zéro le numéro de ligne pour les recherches suivantes
Lig = .Range("A:A").Find(What:=NoOrdre, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Row
If Lig > 4 Then .Rows(Lig).Delete Shift:=xlUp: Lig = 0 Else Exit Do
Loop
End With
Next Index1
ComboBoxBase = ""
RemplirComboxBase
CreatListView1
InitLesTextBox 0
End Sub