lien hypertexte vers mail sous excel 2003

Bonjour à vous,
j'ai passé pas mal de temps sur ce forum pour trouver la reponse à mon probleme et je ne l'ai pas trouvé...
Je cherche à afficher dans la colonne AM d'une feuille un lien vers un mail contenant des données de la feuille.
Le code ci dessous marche tres bien avec Excel 2000 mais depuis que je suis passé en Excel 2003, il me donne une erreur d'execution "1004".
Voicie le code, si quelqu'un a une idée je suis preneur ...

Sub MailFitTracker()

Dim j As Variant
Dim ActiveRow As Variant
Dim Adresse As Variant
Dim Sujet As Variant
Dim Message As Variant
Dim LastLine As Variant

LastLine = Sheets("FIT").Range("A3").CurrentRegion.End(xlDown).Row


For j = 3 To LastLine

ActiveRow = j

Adresse = Cells(ActiveRow, "AL")
Sujet = "[MCO-HF]: " & Range("F" & ActiveRow)

Message = "Ceci est un mail de suivi de la FIT : " & Range("F" & ActiveRow) & vbCrLf & _
"Statut de la FIT (ou PEP) : " & Range("AK" & ActiveRow) & vbCrLf & _
" " & vbCrLf



Message = Application.WorksheetFunction.Substitute(Message, vbCrLf, "%0D%0A")
Message = Application.WorksheetFunction.Substitute(Message, "&", "et")



ActiveSheet.Hyperlinks.Add Anchor:=Cells(ActiveRow, "AM"), _
Address:="mailto:" & Adresse & _
"?subject=" & Sujet & _
"&body=" & Message, _
ScreenTip:="Emission d'un mail de suivi", _
TextToDisplay:="envoyer mail"


Next

End Sub


merci de votre aide