XL 2010 utiliser des variables communes à Excel et Word

 Sub test (var1 as string,var2 as integer)
End Sub

 application.run "test","Toto",24

'-1- je défini une variable A= « bonjour » dans Excel
Dim A As String : A= "Bonjour"
With CreateObject("Word.Application")
    .Visible = True
    With .documents.Open("C:\Myrep\Test.docm") 
        .Application.Run "TEST" ,A 'Excel.A=> Word.B
MsgBox A
        .Save 
        .Close False
    End With
    .Quit
End With
End Sub

'-2- je bascule sur Word et j’utilise le contenu de cette variable A dans une macro Word, B= A donc B est égal à « Bonjour »
Sub test (ByRef B as string)
msgbox B
B="Merci"
End Sub