Excel/VBA - Créer un "UserForm" dynamique

'Cette procédure s'exécute lorsque s'initialise l'UserForm 
Private Sub UserForm_Initialize() 
'Remplir la ComboBox1 sans doublons 
'sources : 
'http://www.excel-downloads.com/forum/83545-vba-remplir-une-combobox-sans-doublon.html 
Dim i As Integer 
For i = 1 To Sheets("Feuil1").Range("A65536").End(xlUp).Row 
    ComboBox1 = Sheets("Feuil1").Range("A" & i) 
    If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Sheets("Feuil1").Range("A" & i) 
Next i 
'mise à zéro des contrôles 
ComboBox1 = "" 
ComboBox2.Clear 
Label1.Caption = "" 
Label2.Caption = "" 
End Sub 

'Cette procédure s'exécute lorsque la valeur de Combobox1 change 
Private Sub ComboBox1_Change() 
'remplir la ComboBox2 
'Ici le test dit que si la donnée en colonne A = valeur combobox1 
'Alors on insère la valeur contenue colonne B dans combobox2 
'Et comme la Combobox1, on enlève les doublons... 
ComboBox2.Clear 
For i = 1 To Sheets("Feuil1").Range("B65536").End(xlUp).Row 
    If Sheets("Feuil1").Range("A" & i) = ComboBox1.Value Then 
        ComboBox2 = Sheets("Feuil1").Range("B" & i) 
        If ComboBox2.ListIndex = -1 Then ComboBox2.AddItem Sheets("Feuil1").Range("B" & i) 
    End If 
Next i 
ComboBox2 = "" 
Label1.Caption = "" 
Label2.Caption = "" 
End Sub 

'Cette procédure s'exécute lorsque la valeur de Combobox2 change 
Private Sub ComboBox2_Change() 
Dim i As Integer 
For i = 1 To Sheets("Feuil1").Range("A65536").End(xlUp).Row 
    'Si le contenu de la col A est égal à Combobox1 
    If Sheets("Feuil1").Range("A" & i) = ComboBox1.Value Then 
        'Et si le contenu de la colonne B est égal à combobox2 
         If Sheets("Feuil1").Range("B" & i) = ComboBox2.Value Then 
            Label1.Caption = Sheets("Feuil1").Range("C" & i).Value 
            Label2.Caption = Sheets("Feuil1").Range("D" & i).Value 
         End If 
    End If 
Next i 
End Sub

Sub fabListe()
    Dim shDatas As Worksheet, shListes As Worksheet, i As Long
    Set shDatas = Worksheets("Datas")
    Set shListes = Worksheets("listes")
    shListes.Range("2:65536").EntireRow.Delete
    For i = 2 To shDatas.[A65536].End(xlUp).Row
        If shDatas.Cells(i, 1) = shListes.[A1] Then
            'soit inscription du n° de ligne dans datas
            'shListes.[A65536].End(xlUp).Offset(1, 0) = i
            'soit copie du modèle
            'shDatas.Cells(i, 2).Copy Destination:=shListes.[A65536].End(xlUp).Offset(1, 0)
            'soit copie de la ligne
            shDatas.Rows(i).EntireRow.Copy Destination:=shListes.[A65536].End(xlUp).Offset(1, 0)
        End If
    Next i
End Sub