Private Sub GroupListBox_Click()
Dim Ctrl As Control
Dim Idx As Integer
Application.ScreenUpdating = False
With GroupListBox 'avec la ListBox selectionnée
Idx = Mid(.Name, InStr(1, .Name, "_") + 1) 'Je recupére le Numero de La ListBox
If Idx <> Mid(Old_LstB.Name, InStr(1, Old_LstB.Name, "_") + 1) Then 'Je vérifie que la ListBox sélectionnée
'n'est pas la même que la Dernière Plusieurs Lignes (Max 4 Rendez vous par ListBox)
Old_LstB.ListIndex = -1 'si différente je mets à -1
End If
End With
Set Old_LstB = GroupListBox 'Je récupére la ListBox sélectionnée
Application.ScreenUpdating = True
End Sub