Problème de boucle imaginaire dans un SUB

Bonjour à tous,

J'ai ecrit une fonction pour excel qui me crée un Lien hypertexte et me remplis un tableau(dans une autre feuil) avec des adresses de lien.

La partie créationde lien hypertexte marche parfaitement.
Par contre ce qui me semblait le plus simple ( remplir un tableau )me pose problème depuis un petit moment.

Voici mon problème : en mode pas à pas
Si j'appel uniquement Sub CreationHyperlink tout se passe comme prévu
maintenant si j'appel Sub CreationHyperlink et CreationTableau avec ses paramètres
j'execute uniquement cette action : Worksheets("Feuil3").Cells(1, 1).Value = a
puis plus rien... Je ne retorune même pas par le END FUNCTION
Enfin si j execute Sub CreationHyperlink et CreationTableau sans ses paramètres
je tourne en boucle dans CreationTableau, encore une fois sans retourner par END FUNCTION

Voici mon code:


Public Sub CreationHyperlink(a As String)

ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=a

End Sub
_____________________________________________________________________
Private Sub CreationTableau() 'a As String, b As String, c As String)
Worksheets("Feuil3").Cells(1, 1).Value = a
Worksheets("Feuil3").Cells(1, 2).Value = b
Worksheets("Feuil3").Cells(1, 3).Value = c

End Sub
_____________________________________________________________________


Function AddLink(AddrInternet As String, AddrLocal As String, Name As String) As String

AddLink = Name
Call CreationHyperlink(AddrLocal)
'Call CreationTableau 'AddrInternet, AddrLocal, Name)


End Function
____________________________________________________________________

D