Private Sub UserForm_Initialize()
With Contacts
.Civilité.AddItem "Mlle"
.Civilité.AddItem "Mme"
.Civilité.AddItem "Mr"
End With
[COLOR=Blue]With Worksheets("Contacts")[/COLOR] 'ici j'ai ajouté
Contacts.Lbl_Civilité = [COLOR=Blue].[/COLOR]Cells(1, 1) 'et un point devant Cells()
Contacts.Lbl_Nom =[COLOR=Blue] .[/COLOR]Cells(1, 2) 'idem
Contacts.Lbl_Prénom = [COLOR=Blue].[/COLOR]Cells(1, 3) 'idem
Contacts.Lbl_Fonction =[COLOR=Blue] .[/COLOR]Cells(1, 4) 'idem
Contacts.Lbl_Société =[COLOR=Blue] .[/COLOR]Cells(1, 5) 'idem
Contacts.Lbl_Contact = [COLOR=Blue].[/COLOR]Cells(1, 6) 'idem
Contacts.Lbl_Ville = [COLOR=Blue].[/COLOR]Cells(1, 10) 'idem
Contacts.Lbl_CP =[COLOR=Blue] .[/COLOR]Cells(1, 11) 'idem
Contacts.Lbl_Adresse = [COLOR=Blue].[/COLOR]Cells(1, 12) 'idem
Contacts.Lbl_Action = [COLOR=Blue].[/COLOR]Cells(1, 13) 'idem
Contacts.Lbl_Comment = [COLOR=Blue].[/COLOR]Cells(1, 14) 'idem
[COLOR=Blue]End With[/COLOR] 'ici j'ai ajouté
End Sub