Problème de #Ref

Bonjour ,
J'ai un problème , je dois copier la valeur d'une cellule d'un autre fichier sachant que mes cellules que se soit la feuille sur laquelle je récupère les données ou la feuille sur laquelle je copie les donner sont toujours au même endroit mais j'ai actuellement un #REF , au départ le chemin était spécifié directement mais quand j'ai commencé a automatisé j'ai eu ce problème
Voici mon code
Cordialement .


Dim a As Integer

Dim NomFic As String


Dim cheminComplet As String



cheminComplet = Application.GetOpenFilename


NomFic = Split(cheminComplet, "\")(UBound(Split(cheminComplet, "\")))



a = 45




Cells(a, 18).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R29C17"

Cells(a, 19).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R38C11"

Cells(a, 20).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R67C14"

Cells(a, 21).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R67C15"

Cells(a, 23).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R17C17"

Cells(a, 24).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R18C17"

Cells(a, 36).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R26C17"

Cells(a, 37).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R21C17"

Cells(a, 40).FormulaR1C1 = "='[NomFic]BRKT SW-A'!R100C9"






End Sub