Private Sub UserForm_Initialize()
Dim I As Integer
Set CLCPVil = New ComboBoxLiés
'CLCPVil.Plage Feuil3.[A2]
CLCPVil.Plage Fcpville.[A2]
CLCPVil.CouleurSympa &H80000005, &HDDFF&, &H80000005, &H80000005
CLCPVil.Add Me.CBcp, "B"
CLCPVil.Add Me.CBville, "C"
ExécutionIntempestive = True
CLCPVil.Actualiser
ExécutionIntempestive = False
Set CL = New ComboBoxLiés
CL.CouleurSympa
CL.Plage WsClient.[B2] ' feuil4=feuille clients dans la base
'CL.Plage Feuil4.[B2] ' feuil4=feuille clients dans la base
CL.Add Me.CBcivil, "C"
CL.Add Me.CBnom, "D"
CL.Add Me.CBprenom, "E"
CL.Actualiser
End Sub