Problème importer des données

Bonjour, j'essaie depuis quelques jours d'importer des données d'un fichier à l'autre et j'obtiens toujours un message d'erreur. Je ne suis pas assez avancé en programmation vba pour corriger mon problème. J'obtiens le message suivant : [Variable objet ou variable bloc With non définie (erreur 91)].

Mon message d'erreur arrive à : (OldTaux_1.Names("Nom_i").RefersToRange.Value = Varia)

Voici mon code :

Private Sub Importer_tout_Click()

Dim OldValidation As Worksheet, NewValidation As Worksheet
Dim monfichier As String, Nomdufichier As String
Dim entier As Long
Dim OldWb As Workbook, NewWb As Workbook
Dim OldTaux_1 As Worksheet, OldHist_1 As Worksheet, OldVie_1 As Worksheet, OldIld_1 As Worksheet
Dim NewTaux_1 As Worksheet, NewHist_1 As Worksheet, NewVie_1 As Worksheet, NewIld_1 As Worksheet
Dim Nom_i As String
Dim Varia As Variant


Application.ScreenUpdating = False
monfichier = Fichier_import.Value

'Obtenir le nom de l'ancien fichier dans le textbox
entier = Len(monfichier) 'le nombre de caractère dans mon fichier
Do Until Mid(monfichier, entier, 1) = "\"
entier = entier - 1
Loop

Nomdufichier = Right(monfichier, Len(monfichier) - entier) 'Permet d'obtenir le nom du fichier sans le début

Set NewWb = ActiveWorkbook
Set NewTaux_1 = GetWsFromCodeName(NewWb, "Sheet1")
Set NewHist_1 = GetWsFromCodeName(NewWb, "Sheet2")
Set NewVie_1 = GetWsFromCodeName(NewWb, "Sheet3")

Workbooks.Open (monfichier)
Set OldWb = Workbooks(Nomdufichier)
Set OldTaux_1 = GetWsFromCodeName(OldWb, "Sheet1")
Set OldHist_1 = GetWsFromCodeName(OldWb, "Sheet2")
Set OldVie_1 = GetWsFromCodeName(OldWb, "Sheet3")


For i = 1 To 2
Set Varia = Nothing
Workbooks(Nomdufichier).Activate
OldTaux_1.Names("Nom_i").RefersToRange.Value = Varia
Windows(NewWb).Activate
NewTaux_1.Names("Nom_i").RefersToRange.Value = Varia
Next i

OldWb.Close
Application.ScreenUpdating = True
End Sub

______________________
' Fonction importer le fichier dans la boîte
Private Sub Parcourir_Click()
With Application.FileDialog(msoFileDialogOpen)
.AllowMultiSelect = False
.Show
UserForm1.Fichier_import.Text = .SelectedItems(1)
End With

End Sub

_______________________
Function GetWsFromCodeName(wb As Workbook, CodeName As String) As Excel.Worksheet
Dim ws As Excel.Worksheet

For Each ws In wb.Worksheets
If ws.CodeName = CodeName Then
Set GetWsFromCodeName = ws
Exit For
End If
Next ws
End Function


Merci bcp à l'avance !