Formule dans VBA avec variable

Sub FusionFeuillesPrésence()
'
'
' permet de fusionner les feuilles de présence pour RTT avec les horaires et spécificités du salarié

' Recupération des données
    NomSalarie = Range("A1").Value
    Annee1 = Range("J2").Value
    Annee2 = Range("J3").Value
    Dim HArrivM As Date
    HArrivM = Workbooks("Calcul et suivi RTT.xlsm").Worksheets("Semaine Type").Range("B3").Value

' Ouvrir le fichier générale des Feuilles de présence pour RTT
    Workbooks.Open Filename:= _
        "T:\Ressources Humaines\Suivi des Parcours\Feuilles de présence\Feuilles de présence pour RTT " & Annee1 & "-" & Annee2 & ".xlsm"

' Enregistrer le fichier au nom du Salarié
    ChDir "T:\Ressources Humaines\Suivi des Parcours\Feuilles de présence"
    ActiveWorkbook.SaveAs Filename:= _
        "T:\Ressources Humaines\Suivi des Parcours\Feuilles de présence\Feuilles de présence pour RTT " & Annee1 & "-" & Annee2 & " " & NomSalarie & ".xlsm" _
        , FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
        
' Copier le nom et le service du salarié
    Sheets(Array("JUIN", "JUILLET", "AOÛT", "SEPTEMBRE", "OCTOBRE", "NOVEMBRE", _
        "DÉCEMBRE", "JANVIER", "FÉVRIER", "MARS", "AVRIL", "MAI")).Select
    Sheets("JUIN").Activate
    Windows("Calcul et suivi RTT.xlsm").Activate
    Range("A1").Copy
    Windows("Feuilles de présence pour RTT " & Annee1 & "-" & Annee2 & " " & NomSalarie & ".xlsm").Activate
    Range("I3:O3").Select
    ActiveSheet.Paste
    Windows("Calcul et suivi RTT.xlsm").Activate
    Range("C1").Copy
    Windows("Feuilles de présence pour RTT " & Annee1 & "-" & Annee2 & " " & NomSalarie & ".xlsm").Activate
    Range("I4:O4").Select
    ActiveSheet.Paste

'Dissocier les feuilles
    Sheets(2).Activate
    Sheets(1).Select
    Range("A9").Select
    
' Insérer les formules

    ' Faire la manip pour chaque feuille
    Dim k As Integer, i As Integer
    k = Sheets.Count
    For i = 1 To k
        Sheets(i).Activate
        Range("A9").Select
        
        'Insérer les formules jusqu'à ce que la case A9 soit vide
            Do Until ActiveCell.Value = ""
                'Pour chaque jour de la semaine du lundi au samedi
                If ActiveCell.Value = "Lundi" And ActiveCell.Offset(0, 2) = "" _
                Or ActiveCell.Value = "Mardi" And ActiveCell.Offset(0, 2) = "" _
                Or ActiveCell.Value = "Mercredi" And ActiveCell.Offset(0, 2) = "" _
                Or ActiveCell.Value = "Jeudi" And ActiveCell.Offset(0, 2) = "" _
                Or ActiveCell.Value = "Vendredi" And ActiveCell.Offset(0, 2) = "" _
                Or ActiveCell.Value = "Samedi" And ActiveCell.Offset(0, 2) = "" Then
        
                'Insérer la formule de Arrivée Matin
                ActiveCell.Offset(0, 2).Select
                ActiveCell.FormulaR1C1 = "=IF((OR(RC[9]=1,RC[9]=2)),HArrivM, """")" 
                Selection.HorizontalAlignment = xlCenter

             Loop
   Next i

  ....... Suite du code
End Sub