Efface des Combo par une combo

d = Asc("G")
For Each ctrl In Me.Controls
If TypeOf ctrl Is MSForms.ComboBox Then
If InStr(ctrl.Name, Chr(d)) > 0 Then
ctrl.Value = ""
d = d + 1
End If
End If
Next

Private Sub ComboBox_F25_Change()
    If Me.ComboBox_F25 <> "" Then
        d = Asc("G")    'la 1ère à effacer
        For Each ctrl In Me.Controls
            If TypeOf ctrl Is MSForms.ComboBox Then
                If InStr(ctrl.Name, Chr(d)) > 0 Then
                    ctrl.Value = ""
                    d = d + 1
                End If
            End If
        Next
    End If
End Sub


Private Sub UserForm_Initialize()

    d = Asc("G")'début
    f = Asc("J")'fin
    For i = d To f
        For Each ctrl In Me.Controls
            If TypeOf ctrl Is MSForms.ComboBox Then
                If InStr(ctrl.Name, Chr(i)) > 0 Then
                    ctrl.AddItem Chr(i)
                    ctrl.ListIndex = 0
                End If
            End If
        Next
    Next
    Me.ComboBox_F25.AddItem "Efface"
End Sub