Code VBA pour alimenter une combobox

'déclaration des variables
Dim Lig As Integer, DernLig As Integer
'on attribue à "DernLig" le numéro de la dernière cellule non vide col A
DernLig = Range("A65536").End(xlUp).Row
'on boucle de la ligne 2 (s'il y a une ligne d'entête) à la dernière ligne
For Lig = 2 To DernLig
    'on teste le contenu de la cellule en col F
    If Cells(Lig, 6) = "" Then
        'Si F est vide alors on alimente la combo avec la valeur col A
        Combobox1.AddItem Cells(Lig, 1)
    'fin du test
    End If
'ligne suivante s'il vous plait...
Next Lig