Alimentation d'un fichier sous macro - PB

Bonjour,

j'ai crée une macro afin d'alimenter un tableau mensuellement, pour que la macro fonctionne, il faut donc que le fichier source soit ouvert.

Cependant, toutes les données ne sont pas prises en compte et un message d'erreur "la méthode range de l'objet global a échoué" ... cf code ci dessous

heets("MAQUETTE").Copy Before:=Sheets(2)
Sheets("MAQUETTE").Select
ActiveWindow.SmallScroll Down:=-6
Range("H3").Select
ActiveCell.FormulaR1C1 = _
"=IF(ISNA(VLOOKUP(C[-7],Reqcons93812.xlsx!Tableau1[#All,[NIR]:[ETAT]],8,FALSE)),VLOOKUP(C[-7],'MAQUETTE (2)'!C[-7]:C,8,FALSE),VLOOKUP(C[-7],Reqcons93812.xlsx!Tableau1[#All,[NIR]:[ETAT]],8,FALSE))"
Range("H3").Select
Selection.AutoFill Destination:=Range("Tableau3[Etat]"), Type:= _
xlFillDefault
Range("Tableau3[Etat]").Select
Range("Tableau3[#All,[Etat]]").Select
Selection.Copy
Columns("H:H").Select
Range("Tableau3[#Headers,[Etat]]").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("MAQUETTE (2)").Select
Application.CutCopyMode = False
ActiveWindow.SelectedSheets.Delete

ActiveWindow.SmallScroll ToRight:=4
Columns("AG:AG").Select
Selection.Copy
Columns("AH:AH").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Columns("AH:AH").Select
Selection.Replace What:="#N/A", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
ActiveWindow.SmallScroll Down:=-15
Sheets("MAQUETTE").Select
Range("A3").Select
End Sub


Pourriez-vous m'aider SVP