[VBA] probleme objet Excel.Application

Bonjour mon probleme est simple j'aimerais renvoyer kom valeur mon Objet Excel.Application

je renvoie mon objet excel.application

Public Function MacroTest(c As Integer) as Excel.application
Public xls As Excel.Application
Set xls = New Excel.Application
...
Set MacroTest = xls
Dim name As String

et lorsque je fais le code suivant, dans une formulaire

Module2.Macro1(Module1.MacroTest)

il me donne comme erreur incompatibilité de type alors je ne comprends pas pourquoi
mon de macro1
est

public function Macro1(xls As Excel.Application)
...
End function

En gros je demande comment passer le meme objet xls de mon module 1 a mon module 2
Merci d'avance