Private Sub ComboBox1_Change() '[2] LISTE des NOMS
Dim Lgn, plage As Range, cel As Range, target As Range
'Set plage = Feuil35.Columns(2)
'Set cel = plage.SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Find(Lgn)
Lgn = ComboBox1.ListIndex + 1
With Tableau
Nom.Value = .Cells(Lgn, 2)
Prenom.Value = .Cells(Lgn, 3)
Fonction.Value = .Cells(Lgn, 4)
Adresse.Value = .Cells(Lgn, 5)
'Adresse2.Value = .Cells(Lgn, 5) A modifier, idem pour CP2, adresse3, etc...
CP.Value = .Cells(Lgn, 6)
Ville.Value = .Cells(Lgn, 7)
TelFixe.Value = .Cells(Lgn, 8)
TelPort.Value = .Cells(Lgn, 9)
Mail.Value = .Cells(Lgn, 10)
MSN.Value = .Cells(Lgn, 11)
End With
End Sub