Hyperlinks

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) = TextNom.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) = TextBox1 & "@" & TextBox2.Value  'Email
              Hyperlinks.Add Cells(nlleLigne, 10), Address:="mailto:" & "TextBox1 &  TextBox2" 'Email actif sur la feuille

   
    ' On vide les zones de saisie
    TextNom.Value = ""
    TextAdresse.Value = ""
    TextCp.Value = ""
    TextVille.Value = ""
    TextTel.Value = ""
    TextPortable.Value = ""
    TextFax.Value = ""
End Sub