Problème de combobox!

J'espère me faire comprendre dans mon exposer. :)

• VBS
• VB6
• VB.Net
• VBA

Option Explicit

Dim rngEquipes As Range
Dim strRngEquip_1 As String
Dim strRngEquip_2 As String
Dim Colonne_1 As String
Dim Colonne_2 As String
Dim indClick_List_1 As Integer
Dim indClick_List_2 As Integer

Private Sub UserForm_Initialize()
indClick_List_2 = 24
Set rngEquipes = Sheets("Feuil1").Range("A1:J1")
ComboBox1.List = Application.Transpose(rngEquipes.Value)
ComboBox2.List = Application.Transpose(rngEquipes.Value)
End Sub

Private Sub ComboBox1_Change()
Dim Col As Integer
Dim rngEquip_1 As Range

If ComboBox1 = "" Then Exit Sub
Col = rngEquipes.Find(ComboBox1).Column
Colonne_1 = Chr(Col + 64)
With Sheets("Feuil1")
    Set rngEquip_1 = .Range(.Cells(2, Col), .Cells(25, Col))
    strRngEquip_1 = Developpe_Adresse(rngEquip_1)
    ListBox1.List = rngEquip_1.Value
End With
End Sub

Private Sub ComboBox2_Change()
Dim Col As Integer
Dim rngEquip_2 As Range
If ComboBox2 = "" Then Exit Sub
Col = rngEquipes.Find(ComboBox2).Column
Colonne_2 = Chr(Col + 64)
With Sheets("Feuil1")
    Set rngEquip_2 = .Range(.Cells(2, Col), .Cells(25, Col))
    strRngEquip_2 = Developpe_Adresse(rngEquip_2)
    ListBox2.List = rngEquip_2.Value
End With
End Sub

Private Sub ListBox1_Click()
Dim rng As Range, strRng As String, Ligne As Long

    indClick_List_1 = indClick_List_1 + 1
    Me.Controls("Label" & indClick_List_1) = ListBox1.List(ListBox1.ListIndex)
    Ligne = Sheets("Feuil1").Columns(Colonne_1).Find(ListBox1.List(ListBox1.ListIndex)).Row
    strRngEquip_1 = Replace(strRngEquip_1, "$" & Colonne_1 & "$" & Ligne & ",", "")
    If strRngEquip_1 = "" Then Exit Sub
    strRng = Left(strRngEquip_1, Len(strRngEquip_1) - 1)
    ListBox1.Clear
    Set rng = Sheets("Feuil1").Range(strRng)
    Rempli_Liste ListBox1, rng
End Sub

Private Sub ListBox2_Click()
Dim rng As Range, strRng As String, Ligne As Long

    indClick_List_2 = indClick_List_2 + 1
    Me.Controls("Label" & indClick_List_2) = ListBox2.List(ListBox2.ListIndex)
    Ligne = Sheets("Feuil1").Columns(Colonne_2).Find(ListBox2.List(ListBox2.ListIndex)).Row
    strRngEquip_2 = Replace(strRngEquip_2, "$" & Colonne_2 & "$" & Ligne & ",", "")
    If strRngEquip_2 = "" Then Exit Sub
    strRng = Left(strRngEquip_2, Len(strRngEquip_2) - 1)
    ListBox2.Clear
    Set rng = Sheets("Feuil1").Range(strRng)
    Rempli_Liste ListBox2, rng
End Sub

Public Function Developpe_Adresse(rng As Range) As String
Dim Cel As Range, strTmp As String
    For Each Cel In rng
        strTmp = strTmp & "," & Cel.Address
    Next Cel
    Developpe_Adresse = Right(strTmp, Len(strTmp) - 1) & ","
End Function

Private Sub Rempli_Liste(Liste As MsForms.ListBox, rng As Range)
Dim Cel As Range
    For Each Cel In rng
        Liste.AddItem Cel.Value
    Next Cel
End Sub