Private Sub UserForm_Initialize()
Me.Civilite.List = Array("M.", "Mme", "Mlle")
End Sub
Sub Valider_Click()
With Sheets("Données clients")
dl1 = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
'dercol = [IV3].End(xlToLeft).Column
.Range("A" & dl1).Value = Civilite.Value
.Range("B" & dl1).Value = Nom.Value
.Range("C" & dl1).Value = Prenom.Value
.Range("D" & dl1).Value = Adresse.Value
.Range("E" & dl1).Value = CP.Value
.Range("F" & dl1).Value = Ville.Value
.Range("G" & dl1).Value = Pays.Value
.Range("H" & dl1).Value = E_mail.Value
.Range("I" & dl1).Value = Tel.Value
.Range("J" & dl1).Value = Portable.Value
End With
Unload Me
End Sub
Private Sub Annuler_Click()
Unload Me
End Sub