Inserer une formule excel complexe sous VBA

Bonjour,
Grâce au forum Développez, je sais maintenant comment retranscrire une formule excel en code VBA. A présent je souhaiterais intégré ma formule au code de mon userform (qui a été developpé par des membres de ce forum). Mais je n'ai pas les compétences nécessaires pour y arriver... Voici la fin du code de mon userform, avec la formule que je souhaite appliquer à la colonne R :

Private Sub CommandButton1_Click()
Dim DerLig As Integer
If TextBox2 = "" Then
    MsgBox "Merci de remplir le champ Déscription"
    Exit Sub
End If
With Worksheets("Saisie")
    If Ligne_Modif = 0 Then
        DerLig = .Range("B" & Rows.Count).End(xlUp).Row + 1
    Else
        DerLig = Ligne_Modif
    End If
    .Range("C" & DerLig).Value = ComboBox1.Value
    .Range("D" & DerLig).Value = ComboBox2.Value
    .Range("E" & DerLig).Value = ComboBox3.Value
    .Range("F" & DerLig).Value = ComboBox4.Value
    .Range("B" & DerLig).Value = ComboBox5.Value
    .Range("G" & DerLig).Value = TextBox1
    .Range("G" & DerLig).NumberFormat = "dd/mm/yyyy"
    .Range("H" & DerLig).Value = TextBox2.Value
    .Range("I" & DerLig).Value = TextBox4.Value
    .Range("J" & DerLig).Value = TextBox5.Value
    .Range("K" & DerLig).Value = TextBox3.Value
    .Range("L" & DerLig) = semaine(CDate(TextBox1))
    .Range("M" & DerLig) = Format(CDate(TextBox1), "mmmm")
    .Range("N" & DerLig) = Year(CDate(TextBox1))
    .Range("O" & DerLig).Value = OptionButton1.Value
    .Range("P" & DerLig).Value = ComboBox6.Value
    .Range("Q" & DerLig).Value = ComboBox7.Value
    .Range("R" & DerLig).Formula ="= IF(O:O=TRUE,(INDEX('\\BRUTUS\Bureautique\AssistantGestion\BETON\CDG FVMB VMBS\F... G...\Essai VBA MAppy\Suivi des temps Maintenance - Copie\[Matrice Frais (Km + MO).xlsm]Matrice Distance'!$A:$BZ,MATCH($C:$C,'\\BRUTUS\Bureautique\AssistantGestion\BETON\CDG FVMB VMBS\F... G....\Essai VBA MAppy\Suivi des temps Maintenance - Copie\[Matrice Frais (Km + MO).xlsm]Matrice Distance'!$A:$A,0),MATCH($D:$D,'\\BRUTUS\Bureautique\AssistantGestion\BETON\CDG FVMB VMBS\F... G...\Essai VBA MAppy\Suivi des temps Maintenance - Copie\[Matrice Frais (Km + MO).xlsm]Matrice Distance'!$1:$1,0)))*2,INDEX('\\BRUTUS\Bureautique\AssistantGestion\BETON\CDG FVMB VMBS\F... G...\Essai VBA MAppy\Suivi des temps Maintenance - Copie\[Matrice Frais (Km + MO).xlsm]Matrice Distance'!$A:$BZ,MATCH($C:$C,'\\BRUTUS\Bureautique\AssistantGestion\BETON\CDG FVMB VMBS\F.... G...\Essai VBA MAppy\Suivi des temps Maintenance - Copie\[Matrice Frais (Km + MO).xlsm]Matrice Distance'!$A:$A,0),MATCH($D:$D,'\\BRUTUS\Bureautique\Assista
ntGestion\BETON\CDG FVMB VMBS\F... G...\Essai VBA MAppy\Suivi des temps Maintenance - Copie\[Matrice Frais (Km + MO).xlsm]Matrice Distance'!$1:$1,0)))"
End With
 
Unload UserForm1
 
End Sub

La ligne de code .Range ("R" & DerLig) ne fonctionne pas. De plus j'aurais besoin de transformer le chemin d'accès au fichier "Matrice Frais (Km+MO)" en ThisworkBook.Path. Il faut que la formule puisse fonctionner sans que le classeur "Matrice Frais (Km + MO)" ne soit ouvert.

EDIT: Précision du langage dans la coloration syntaxique.

Si quelqu'un peut m'aider ... Merci d'avance !