DropDowns VBA

Public Sub CreeC()  
    CréerCombo Range("B3:B11"), Sheets("Feuil2"), Range("D8")  
End Sub  

Sub CréerCombo(Lier As Range, Optional Sh As Worksheet, Optional Emplacement As Range)  

Dim Obj As Object  
Dim code As String  
Dim Ix As Integer, Num As String  
    If Sh Is Nothing Then  
        Set Sh = ActiveSheet  
    End If  
    Sh.Select  
    Ix = ActiveSheet.OLEObjects.Count + 1  
    Num = "0" & Ix: Num = Right(Num, 2) 'Pour jusque 99 boutons  
    If Emplacement Is Nothing Then  
        'emplacement par défaut  
        Set Emplacement = ActiveCell  
    End If  
'crée le ComboBox
    With Emplacement  
    Set Obj = ActiveSheet.OLEObjects.Add(ClassType:="Forms.Combobox.1", _  
    Link:=False, DisplayAsIcon:=False, Left:=.Left, Top:=.Top, Width:=.ColumnWidth * 5.65, Height:=.RowHeight)  
    Obj.Name = "ComboB_" & Num  
    End With  

'propriétés du combo Box
    With ActiveSheet.OLEObjects(Ix)  
        .Placement = xlMoveAndSize  
        .PrintObject = True  
        .ListFillRange = Lier.Address  
    End With  

'Le texte de la macro  
    code = "Private Sub ComboB_" & Num & "_Change()" & vbCrLf  
    code = code & "    MsgBox ""Vous avez sélectionner la ligne "" & ComboB_" & Num & ".Text , ,""ComboB_" & Num & """" & vbCrLf  
    code = code & "End Sub"  

'Ajoute la macro en fin de module feuille  
    With ActiveWorkbook.VBProject.VBComponents(ActiveSheet.Name).CodeModule  
        .insertlines .CountOfLines + 1, code  
    End With  
End Sub  

With Selection  
    .Name = Nom 
    .LinkedCell = T_graph(col)  
End With

Sub AddDropDown(T() As String, Tbis() As String, col As Integer, Target As Range)
Dim ddBox As ComboBox
'Dim i As Integer

Set ddBox = Worksheets("Feuil1").Controls.AddComboBox(Target, "box")
With ddBox
    .ControlSource = T_graph(col)
    .Style = fmStyleDropDownList
End With
End Sub

Set ddbox = ....