ComboBox Excel (VBA)

Bonjour,

Je souhaites insérer (en VBA) une liste déroulante avec choix dans un cellule sur une feuille excel.

Et j'insiste bien : sur la feuille, et non par un formulaire.

Sans passer par le code, dans la version 2007, on peut faire comme ceci :
onglet données > validations des données autoriser liste > dans source taper les différents choix et ok. C'est exactement ce que je veux faire mais en passant par le code.

Pour un projet, je dois respecter ceci :

"Dans la colonne qualification, permettez pour chacune des cellules, le choix entre : ADS (Agent de Sécurité), MC (Maitre chien) et SSIAP (Sécurité), on veut aussi pouvoir ajouter d'autre qualifications".

Ce que j'ai codé:

Private Sub Workbook_Open()   
    Qualif        ' Met en place les listes pour la qualification   
End Sub  

Sub Qualif()  
    Dim ListQualif As Object ' La variable ListQualif est une liste  
    Set ListQualif = ComboBox  

    'Initialisation de la liste  
    With ListQualif  
        .AddItem "ADS"         ' Ajoute l'élément ADS à la liste : Agent de Sécurité  
        .AddItem "MC"          ' Ajoute l'élément MC à la liste  : Maître chien  
        .AddItem "SSIAP"       ' Ajoute l'élément SSSIAP à la liste  : Sécurtié  
    End With  
      
    Range("D11:D12") = ListQualif ' Les cellules de la colonne D (de la 11 à la 16ème ligne) recoivent la liste.  
      
End Sub  

Ce que j'obtient comme erreur:
Ceci est souligné "Set ListQualif = ComboBox " et je lis: Objet requis


Merci de votre aide !!