Bonjour
Ci joint un fichier exemple avec un code qui fonctionne.
Cette solution était donnée en 2007 par Alain0654
Le code pour activer les adresses mail de A1 à A30
Pour éviter le plantage avec les lignes vides, j'ai ajouté l'instruction.
Sub Activer_Adresses_Mail()
Dim Cell As Range
Range("A1:a30").Select
On Error Resume Next
For Each Cell In Selection
ActiveSheet.Hyperlinks.Add Anchor:=Cell, Address:="mailto:" & Cell.Value, _
TextToDisplay:=Cell.Value
Next
End Sub
Cordialement