Adresse email actif

Bonsoir a tous,

J'ai un petit souci avec mon code. J'ai un formulaire avec des textbox pour insérer des nom de clients, adresses ect... sur une feuille. Le souci avec mon code est que:

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" 'Émail 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

Je doit avoir une erreur au niveau de l'adresse émail pour qu'elle soit actif sur ma feuille

  Cells(nlleLigne, 10) = TextBox1 & "@" & TextBox2.Value  'Email
                Hyperlinks.Add Cells(nlleLigne, 10), Address:="mailto:" & "TextBox1 &  TextBox2" 'Émail actif sur la feuille

Je vous remercie de votre aide

Cordialement

Max

Bonjour

Remplces :

  Cells(nlleLigne, 10) = TextBox1 & "@" & TextBox2.Value  'Email
               Hyperlinks.Add Cells(nlleLigne, 10), Address:="mailto:" & "TextBox1 &  TextBox2" 'Émail actif sur la feuille

par

ActiveSheet.Hyperlinks.Add Cells(nlleLigne, 10), Address:="mailto:" & TextBox1 & "@" & TextBox2

Cdlt

Bonjour Jean-Eric

Je te remercie beaucoup Nickel

Je te souhaite une bonne journée

Max

Re,

Clore le sujet si réponse adaptée.