Macro avec variable

Bonjour à vous

Je lance cette macro d´envoi d email à partir de plusieurs endroits dans mon classeur.
Chaque lancement a un sujet de message différent.

Sujet de message
(Ces cellules contiennent des textes que je souhaiterai assembler)

CAs 1 : SUjet de message : Fueille1!A1 + Feuille1!B2
Cas 2 : Sujet de message : Feuille1!A1 + Feuille2!B2
Cas 3 : Sujete de Message :Feuille1!A1 +Feuille3!B2



Private Sub CommandButton1_Click()

Call envoiMessageLienFichier()
J´imagine quíl faut que je donne les variables de ma macro. Comment fait-on?


sub envoiMessageLienFichier()
Dim oOutlook As New Outlook.Application
Dim oMessage As Outlook.MailItem

Set oMessage = oOutlook.CreateItem(olMailItem)

With oMessage
.Subject = 'le sujet du message' à mettre en variable
.Body = 'bonjour , ' & vbLf & 'Ci joint le lien vers le fichier ' & vbLf & _
'file://' & Application.Substitute(ThisWorkbook.FullName, ' ', '%20')
.Display
End With
End Sub


Merci d´avance pour votre aide