XL 2019 Remplir une combobox avec une ligne

Bonjour le forum

Je voudrais savoir si on peut remplir une combobox avec les valeur d une ligne
pour remplir ma combobox avec les valeurs dune colonne
j utilise le code suivant:

Private Sub userform_initialize()
Set Ws = Sheets("XXXX")
With Me.ComboBox1
For J = 3 To Ws.Range("A" & Rows.Count).End(xlUp).Row
.AddItem Ws.Range("A" & J)
Next J
End With
End Sub

je voudrais le modififier pour que ma combobox se remplise avec les valeurs de la ligne 2 de C3 a la derniere cellule vide

j ai trouver ce code sur un forum pour remplir la combobox

Private Sub ComboBox1_GotFocus()
Dim i As Range
With Sheets("xxxx")
Set i = .Range("C3:N3")
End With
ComboBox1.List = Application.Transpose(Range("C3:N3").Value)
End Sub



mais il ne fonctionne pas

je vous joint mon fichier modele

dans ce fichier il y a deux bouton
le bouton Ajouter valeur avec plusieur texbox marche mais le probleme c est qu il ya plusieur textbox 1 par colonne et la j ai pas tout mis les colonne a remplir
donc avec le bouton Ajouter valeur avec combobox et textbox je voudrais simplifier mon userfrom
juste avoir un combobox et un textbox

Quel code doit utiliser pour remplir la combobox?

Merci d'avance pour votre aide
Cordialement
Snoopy 07