Salut,
Si on considére qu'une adresse doit contenir 1 @ et 1 point, testes ceci en le collant dans le module de ta feuille en question. Rajouter un application.intesect si tu veux le faire que dans une zone bien précise
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If VeriFCourriel(Target.Value) Then Hyperlinks.Add Target, "mailto:" & Target.Value
End Sub
Function VeriFCourriel(Adresse$) As Boolean 'Zon
VeriFCourriel = InStr(Adresse, "@") > 0 And InStr(1, Adresse, ".") - InStr(Adresse, "@") > 1
End Function
A+++