Fermeture ou fichier excel en arrière plan

Bonjour,
Je dois aller piocher des valeurs d'un excel pour les mettre dans un autre sauf que pour aller piocher les valeurs je dois ouvrir le excel , j'aurai voulu que le excel s'ouvre et se faire ou alors qu'il se mette en arrière plan , avec mon code ça ouvre le excel directement sur mon écran

Apres j'aurai une question par rapport a mon travail et qui a rien avoir avec le sujet , en faite les cases que je vais récupérer sont toujours au même endroit mais admettons la personne insert une ligne ou une colonne sans faire exprès du coup la valeur serai decaller et sa ne serai pu la bonne valeur qui est reporté sur le tableau global , il y a une solution pour régler ce problème ?
Je suis désolé je débute en VBA excel et merci pour ceux qui vont répondre

Dim a As Integer
Dim Feuille As String
Dim fin As String
Dim i As Integer
Dim NomFic As String
Dim cheminComplet As String
Dim wb As Workbook



cheminComplet = Application.GetOpenFilename

Set wb = Workbooks.Open(cheminComplet)

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




a = 43
fin = Workbooks(NomFic).Sheets.Count

For i = 1 To fin




Feuille = Workbooks(NomFic).Sheets(i).Name



    Cells(a, 18).FormulaR1C1 = "='[" & NomFic & "]" & Feuille & "'!R29C17"
    Cells(a, 19).FormulaR1C1 = "='[" & NomFic & "]" & Feuille & "'!R38C11"
    Cells(a, 20).FormulaR1C1 = "='[" & NomFic & "]" & Feuille & "'!R67C14"
    Cells(a, 21).FormulaR1C1 = "='[" & NomFic & "]" & Feuille & "'!R67C15"
    Cells(a, 23).FormulaR1C1 = "='[" & NomFic & "]" & Feuille & "'!R17C17"
    Cells(a, 24).FormulaR1C1 = "='[" & NomFic & "]" & Feuille & "'!R18C17"
    Cells(a, 36).FormulaR1C1 = "='[" & NomFic & "]" & Feuille & "'!R26C17"
    Cells(a, 37).FormulaR1C1 = "='[" & NomFic & "]" & Feuille & "'!R21C17"
    Cells(a, 40).FormulaR1C1 = "='[" & NomFic & "]" & Feuille & "'!R100C9"
    
    a = a + 1
    
    Next i
    


End Sub