Alimenter combobox et ajouter des lignes

Bonjour,

Je suis une nouvelle dans l'utilisation de vba !

Je voudrais faire appel à vos connaissance, pour apprendre plusieurs choses :D

Mon premier but et de créer une liste déroulante dans un Userform. J'ai créer une comboBox et tout. Mais après j'ai du mal à savoir quoi écrire et surtout dans quel ordre !

Donc voilà...


Pour le moment j'ai fait ça, sachant que ça ne marche pas!

Option Explicit
Private ws As Worksheet
Public choix As String

Private Sub btValider_Click()

Me.Hide

End Sub

Private Sub ComboBox1_Change()
    If ComboBox.Text = Tout Then ws.Range("A:AN").AutoFilter Fiels:=1
Else
    choix = ComboBox1.Text
    ws.Range("A1").AutoFilter Field:=1, Criteria1:=choix
End If

End Sub

Private Sub UserForm_Initialize()
Dim derlig As Integer
Dim i As Integer


ws = ThisWorkbook.Sheets("Feuil1")

derlig = ws.Range("A" & Rows.Count).End(xlUp).Row


For i = 2 To derlig
    With Me.ComboBox1.AddItem ws.Range ("A" & i)
    End With
Next i

End Sub
    Set ws = ThisWorkbook.Worksheets("Feuil1")
    ws.Range("A:AN").AutoFilter Field:=1
    InitCombo
End Sub

Private Sub Workbook_Open()

Dim derig As Integer
derlig = ws.Range("A" & Rows.Count).End(xlUp).Row

Sheets("Feuil1").ComboBox1.Clear
Dim i As Integer
For i = 1 To derlig
Sheets("Feuil1").ComboBox1.AddItem Sheets("Feuil1").Cells(i, 17)
Next i

End Sub


Private Sub Valider_Click()

End Sub

Après en deuxième étape serait que en cliquant sur un bouton, je rajoute une ligne avec une combo box automatiquement pour rajouter un autre élément et donc à la fin filtrer tout ça: ce qui ferait deux références a garder !

Je ne sais pas si j'ai été bien claire.

Je sais je sais, y a plein d'exemple sur internet , mais le but la n'est pas de copier/coller mais comprendre pour que je puisse le refaire après :)

Merci d'avance de votre aide!
Bonne journée,

Laura

PS: voilà le lien du document: https://www.cjoint.com/?0GejE14aQk1