Macro Global ... As string/Integer

Bonjour,

J'ai crée une macro qui permet de mettre à jour une feuille Excel à partir d'un onglet de référence. Je voudrai que dans une cellule soit répertoriée le code fournisseur/une donnée X. Cette donnée X pourra me servir dans d'autre module de la macro. J'ai trouvé qu'en utilisant Global avant Sub, la donnée sauvegardée était utilisable dans toutes les macros (s'il n'y a pas d'interruption du code). Voici mon code, dites-moi ce qui cloche car la formule dans laquelle on devrait retrouver la donnée X s'affiche en erreur.

Merci d'avance de votre aide.

Global PériodeRI As String, NomFichierRI As String

Sub a2_mise_en_forme()

'Définition des variables
PériodeRI = InputBox("Quelle est la période du RI concernée (au format <<du mois de MM AAAA>>) ?", "Période de RI concercée")
NomFichierRI = InputBox("Quel est le nom du fichier RI de Vivian ?", "Nom du fichier RI à traiter")

Sheets("Transaction_Register").Select

Range("a2").Select
Selection.End(xlDown).Select
lastli = ActiveCell.Row

Range("H1").Select
ActiveCell.FormulaR1C1 = "Franchisés1"
Range("i1").Select
ActiveCell.FormulaR1C1 = "Franchisés2"
Range("j1").Select
ActiveCell.FormulaR1C1 = "Franchisés"
Range("k1").Select
ActiveCell.FormulaR1C1 = "Org Id"
Range("l1").Select
ActiveCell.FormulaR1C1 = "Business Account"
Range("m1").Select
ActiveCell.FormulaR1C1 = "CodeNum"

Range("m2").Select
ActiveCell.FormulaR1C1 = _
"=rIGHT(LEFT(C[-12],5),3)"

Range("m2").Select
Selection.Copy
Range("m3:m" & lastli).Select
ActiveSheet.Paste
Calculate
Range("M2:M" & lastli).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Columns("M:M").Select
Selection.TextToColumns Destination:=Range("M1"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=True, Semicolon _
:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, _
1), TrailingMinusNumbers:=True

Range("I2").Select
ActiveCell.FormulaR1C1 = _
"=IF(RIGHT(C[-8],2)=""CM"","""",VLOOKUP(C[4],CodesNum!C[-8]:C[-3],6,0))"

Range("J2").Select
ActiveCell.FormulaR1C1 = "=IF(C[-2]="""",C[-1],C[-2])"
Range("K2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(C[-2],'CodesNum'!C[-5]:C[-2],3,0)),VLOOKUP(C[-3],'CodesNum'!C[-5]:C[-1],3,0),VLOOKUP(C[-2],'CodesNum'!C[-5]:C[-2],3,0))"
Range("L2").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISERROR(VLOOKUP(C[-3],'CodesNum'!C[-6]:C[-3],3,0)),VLOOKUP(C[-4],'CodesNum'!C[-6]:C[-2],4,0),VLOOKUP(C[-3],'CodesNum'!C[-6]:C[-3],4,0))"

Range("I2:l2").Select
Selection.Copy
Range("i3:i" & lastli).Select
ActiveSheet.Paste
Calculate

Columns("E:F").Select
Selection.NumberFormat = "dd/mm/yy;@"

Columns("A:A").Select
Selection.NumberFormat = "0"
Columns("E:F").Select
With Selection
.HorizontalAlignment = xlRight
.VerticalAlignment = xlBottom
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With

Columns("G:G").Select
Selection.NumberFormat = "#,##0.00"

Columns("E:F").Select
Selection.NumberFormat = "dd/mm/yy;@"

Range("n2").Select
ActiveCell.FormulaR1C1 = "=ABS(C[-7])"
Selection.Copy
Range("n2:n" & lastli).Select
ActiveSheet.Paste
Calculate

Range("a2:n" & lastli).Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False

Range("a1:n" & lastli).Select
Selection.Sort Key1:=Range("j2"), Order1:=xlAscending, Key2:=Range("n2") _
, Order2:=xlAscending, Header:=xlGuess, OrderCustom:=1, MatchCase:= _
False, Orientation:=xlTopToBottom

'C'est ici que je veux que ça fonctionne mais ce n'est pas le cas...
La cellule affiche

Range("O2").Select
ActiveCell.FormulaR1C1 = "=NomFichierRI"

Sheets("Procédure").Select
ActiveWorkbook.Save

End Sub