argument nommé introuvable

Bonjour à tous,

Voici mon problème :
J'ai crée un fichier depuis mon poste de travaille avec une macro qui fonctionne très bien.
ce fichier doit pouvoir être utilisé sur d'autre postes de mes collègues mais à l'exécution voici ce que l'on m'affiche
"argument nommé introuvable"

ci dessous la macro :

Sub impressionrecmanifestexport3()
'
' impressionrecmanifestexport3 Macro
'

'
Range("F16").Select
ActiveCell.FormulaR1C1 = "=Listing!R[-14]C[-5]+1"
Range("F17").Select
Sheets("Listing").Select
Rows("2:2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
Sheets("DOUANE EXP").Select
Rows("2:2").Select
Selection.Copy
Sheets("Listing").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Rows("1:2").Select
Range("A2").Activate
Selection.EntireRow.Hidden = False
Sheets("DOUANE EXP").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.SelectedSheets.PrintOut Copies:=2, Collate:=True, _
IgnorePrintAreas:=False
Range("E20").Select
End Sub
En rouge la ou la macro doit buguer !! c est Excel qui la souligner.

Merci à tous de votre aide.

Cdlt
olivier