Sub Distance(r As Range)
Const source = "'C:\Suivi des temps Maintenance\[Matrice Frais (Km + MO).xlsm]"
r.FormulaR1C1 = _
"=IF(C[-3]=TRUE,(INDEX(" & source & "Matrice Distance'!C1:C78,MATCH(C3," & source & _
"Matrice Distance'!C1,0),MATCH(C4," & source & "Matrice Distance'!R1,0)))*2," & _
"INDEX(" & source & "Matrice Distance'!C1:C78,MATCH(C3," & source & "Matrice Distance'!C1,0)," & _
"MATCH(C4," & source & "Matrice Distance'!R1,0)))"
End Sub