Combobox multiples pour base de données

Private Sub UserForm_Activate()
  Set MonDico = CreateObject("Scripting.Dictionary")
  MonDico.Add "*", "*"
  For Each c In Range("a2:" & Range("A2").End(xlDown).Address)
     If Not MonDico.Exists(c.Value) Then MonDico.Add c.Value, c.Value
  Next c
  Me.Promotion.List = MonDico.items
  Me.Promotion.ListIndex = 0
End Sub

Private Sub Promotion_Change()
  i = 0
  Me.Nom.Clear
  For Each c In Range(Sheets("annu").[A2], Sheets("annu").[A65000].End(xlUp))
    If c = Me.Promotion Or Me.Promotion = "*" Then
      Me.Nom.AddItem
      Me.Nom.List(i, 0) = c.Offset(0, 3) & " " & c.Offset(0, 4)
      Me.Nom.List(i, 1) = c.Row
      i = i + 1
    End If
   Next c
   Me.Nom.ListIndex = 0
End Sub

Private Sub Nom_Change()
   If Me.Nom.ListIndex <> -1 Then
     i = Val(Me.Nom.Column(1))
     If i <> 0 Then
        Me.N°_Dossier = Worksheets("Annu").Cells(i, 2).Value
        Me.N°_Identifiant = Worksheets("Annu").Cells(i, 3).Value
        Me.Adresse = Worksheets("Annu").Cells(i, 6).Value
        'Me.Pays = Worksheets("Annu").Cells(i , 7).Value
        Me.Tel = Worksheets("Annu").Cells(i, 8).Value
        Me.Tel.Value = Format(Tel.Value, "00"" ""00"" ""00"" ""00"" ""00")
        Me.Portable = Worksheets("Annu").Cells(i, 9).Value
        Me.Portable.Value = Format(Portable.Value, "00"" ""00"" ""00"" ""00"" ""00")
        Me.Date_de_Naissance = Worksheets("Annu").Cells(i, 10).Value
        Me.Liste = Worksheets("Annu").Cells(i, 11).Value
        Me.Note = Worksheets("Annu").Cells(i, 12).Value
   End If
 End If
End Sub