Appliquer macro sans ouvrir fichier source

Bonjour,

Je souhaiterai appliquer une macro sans devoir ouvrir le fichier source à chaque fois.
J'ai pu vori qu'il existait des solutions telles que "ADO" mais jene maitrise pas le sujet.

Voici mon code, quelqu'un pourrait-il m'aider ?
Merci d'avance !!!!

Sub Macrotype()
'
' Macrotype Macro
'
' Touche de raccourci du clavier: Ctrl+m
'
Rows("1:12").Select
Selection.Delete Shift:=xlUp
Rows("1:1").Select
Selection.Font.Bold = True
Columns("B:B").Select
Selection.ClearContents
Columns("B:B").Select
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
Columns("E:I").Select
Selection.ClearContents
Selection.Delete Shift:=xlToLeft
Selection.Delete Shift:=xlToLeft
Columns("A:A").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=True, OtherChar:= _
"(", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Columns("B:B").Select
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=True, Comma:=False, Space:=False, Other:=True, OtherChar:= _
")", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
Columns("C:C").Select
Selection.Delete Shift:=xlToLeft
Range("E5").Select
ActiveWorkbook.SaveAs Filename:= _
"Z:\Docs FC Partagés 1\Macro-Trafic-PMV.xlsm" _
, FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub