* liste déroulante combobox2 filtrée sur valeur choisie dans combobox1 *

Private Sub ComboBox1_Change()
Dim Derl As Long, L As Long, Rng As Range, Cel As Range
'    If Len(Me.ComboBox1) = 0 Then
'        For Each CTRL In Me.Controls
'            If TypeOf CTRL Is MSForms.TextBox Or TypeOf CTRL Is MSForms.ComboBox Then CTRL.Value = ""
'        Next CTRL
'        Exit Sub
'    End If
Me.ComboBox2.Clear
    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual
    F04.AutoFilterMode = False

    Derl = F04.Range("A65536").End(xlUp).Row
'    With F05.ListObjects("TAB_VISITES2") ' on efface le tableau TAB_VISITES2
'        If Not .DataBodyRange Is Nothing Then .DataBodyRange.Delete
'    End With
    Set Rng = F04.Range("A3:P" & Derl)
    F04.Range("A2").AutoFilter Field:=4, Criteria1:=Me.ComboBox1 ' on filtre le TAB_VISITE par le magasin sélectioné
 Set Rng = Rng.SpecialCells(xlCellTypeVisible)
'    F04.Range("TAB_VISITES").Copy Destination:=F05.Range("A3") ' on copie les lignes sélectionnées TAB_VISITE sur TAB_VISITE2
    
'    Me.ComboBox2.List = F05.Range("TAB_VISITES2[SELECTION_VISITE]").Value
    For L = 1 To Rng.Rows.Count
    Me.ComboBox2.AddItem Rng.Cells(L, 1) & "-" & Rng.Cells(L, 4)
    Next L
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    
End Sub