Utiliser une feuille (sheet et un combobox

J'ai un userform ou j'ai mis un combobox

Je souhaite afficher dans le combobox toutes les valeurs présentent dans la colonne "A" de la feuille "Liste"

Mais quand j'appuis sur mon bouton (ou UserForm_Initialize) j'ai une erreur "fonction non défini"

Dim Couleur As Variant
Dim NumCouleur As Integer
NumCouleur = 1
Couleur = ""

    Do
        If Sheet("Liste").Range("A" & NumCouleur).Value <> "" Then
            Couleur = Sheet("Liste").Range("A" & NumCouleur).Value
            ComboBox1.AddItem Couleur
            NumCouleur = NumCouleur + 1
        End If
    Loop While Range("G" & NumCouleur) <> ""

Bonjour,

à tester,

Private Sub UserForm_Initialize()
Dim Couleur As Variant
Dim NumCouleur As Integer
NumCouleur = 1
Couleur = ""

    Do
        If Sheets("Liste").Range("A" & NumCouleur).Value <> "" Then
            Couleur = Sheets("Liste").Range("A" & NumCouleur).Value
            Me.ComboBox1.AddItem Couleur
            NumCouleur = NumCouleur + 1
        End If
    Loop While Sheets("Liste").Range("A" & NumCouleur) <> ""
End Sub

C'est le Me. qui me manquait alors

Pour le "Loop While Sheets("Liste").Range("A" & NumCouleur) <> "" "

Je m'en suis aperçu puis corrigé mais j'avais encore l'erreur

il sert à quoi le me. ?

en tout cas merci beaucoup