Private Sub CboNom_Change()
Dim MaCol As Integer
With CboNom
If .ListIndex < 0 Then Exit Sub
Me.TxBPren.Value = .List(, 1) ' 2ème Colonne, on affiche le Prénom
Me.TxBProfil.Value = .List(, 2) ' 3ème Colonne, on affiche le Numéro de Profil
End With
Set mondico = CreateObject("scripting.dictionary")
For Each c In Range(f.[G3], f.[G65000].End(xlUp))
MaCol = Val(TxBProfil.Value) - 7
If c.Offset(, MaCol) <> "" Then mondico(c.Value) = c.Offset(, 1).Value
Next c
Me.ComboBox1.List = mondico.keys
Me.ComboBox1.ListIndex = -1
'Set mondico = Nothing
End Sub