Macro avec 2 variable

Bonjour Forum


J´ai cette macro
Mais je´n´arrive pas à l´insérer ds le code d une de mes feuilles.
Cad: j´arrive à l appeler avec une variable mais pas avec les deux?

Comment fait on?

envoyermail (Destinataire, Sujet) ne marche pas
-> m´indique l erreur 'Erreur de compilation = '

Sub envoyermail (destinataire as string, sujet as string)
Dim oOutlook As New Outlook.Application
Dim oMessage As Outlook.MailItem

Set oMessage = oOutlook.CreateItem(olMailItem)

With oMessage
.Subject = sujet
.Body = 'yeh yeh yeh'
.To = destinataire
.Display

End With
End Sub