Private Sub CommandButton1_Click()
Dim nlleLigne As Long, cel As Range
'On recherche la première ligne disponible
Set cel = Range("A:A").SpecialCells(xlCellTypeFormulas).Find("", LookIn:=xlValues, lookat:=xlWhole)
If Not cel Is Nothing Then nlleLigne = cel.Row
Cells(nlleLigne, 3) = TextNomComplet.Value
Cells(nlleLigne, 4) = TextAdresse.Value
Cells(nlleLigne, 5) = TextCp.Value
Cells(nlleLigne, 6) = TextVille.Value
Cells(nlleLigne, 7) = TextTel.Value
Cells(nlleLigne, 8) = TextPortable.Value
Cells(nlleLigne, 9) = TextFax.Value
Cells(nlleLigne, 10) = TextEmail1 & "@" & TextEmail2.Value 'Email
ActiveSheet.Hyperlinks.Add Cells(nlleLigne, 10), Address:="mailto:" & "TextEmail1 & TextEmail2" 'Email actif sur la feuille
Cells(nlleLigne, 11) = ComboBox1.Value
Cells(nlleLigne, 12) = TextNom.Value
Cells(nlleLigne, 13) = TextPrenom.Value