Erreur d'execution VBA

Bonjour,

Je rencontre des difficultés à activer une macro sur d'autres postes.
Je m'explique : une macro a été crée sur un poste. Cette macro fonctionne correctement sur ce meme poste. Lors de l'envoi du fichier avec la meme macro sur un autre poste, cette derniere ne s'active plus.
Auriez vous une idée ? Merci d'avance! :)

Private Sub Workbook_Open()
Dim Photo As Variant
Dim Gauche, Sommet, Largeur, Hauteur As Single

Photo = "C:\Users\NZDT2941\Desktop\Dossier de présentation Mairie\Excel + PowerPoint\1.jpg"
Gauche = Range("D21:F21").Left
Sommet = Range("D21:F21").Top
Largeur = Range("D21:F21").Width
Hauteur = Range("D21:F21").Height

If Photo <> False Then
Feuil1.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur

End If

Photo = "C:\Users\NZDT2941\Desktop\Dossier de présentation Mairie\Excel + PowerPoint\2.jpg"
Gauche = Range("J21").Left
Sommet = Range("J21").Top
Largeur = Range("J21").Width
Hauteur = Range("J21").Height

If Photo <> False Then
Feuil1.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur

End If

Photo = "C:\Users\NZDT2941\Desktop\Dossier de présentation Mairie\PMZ\PMZ N°1\1.JPG"
Gauche = Range("D8:16").Left
Sommet = Range("D8:D16").Top
Largeur = Range("D8:D16").Width
Hauteur = Range("D8:D16").Height

If Photo <> False Then
Feuil2.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur

End If

Photo = "C:\Users\NZDT2941\Desktop\Dossier de présentation Mairie\PMZ\PMZ N°1\2.JPG"
Gauche = Range("F8:G16").Left
Sommet = Range("F8:G16").Top
Largeur = Range("F8:G16").Width
Hauteur = Range("F8:G16").Height

If Photo <> False Then
Feuil2.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur

End If

Photo = "C:\Users\NZDT2941\Desktop\Dossier de présentation Mairie\PMZ\PMZ N°1\3.JPG"
Gauche = Range("D18:D26").Left
Sommet = Range("D18:D26").Top
Largeur = Range("D18:D26").Width
Hauteur = Range("D18:D26").Height

If Photo <> False Then
Feuil2.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur

End If

Photo = "C:\Users\NZDT2941\Desktop\Dossier de présentation Mairie\PMZ\PMZ N°2\1.JPG"
Gauche = Range("D8:D16").Left
Sommet = Range("D8:D16").Top
Largeur = Range("D8:D16").Width
Hauteur = Range("D8:D16").Height

If Photo <> False Then
Feuil3.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur

End If

Photo = "C:\Users\NZDT2941\Desktop\Dossier de présentation Mairie\PMZ\PMZ N°2\2.JPG"
Gauche = Range("F8:G16").Left
Sommet = Range("F8:G16").Top
Largeur = Range("F8:G16").Width
Hauteur = Range("F8:G16").Height

If Photo <> False Then
Feuil3.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur

End If

Photo = "C:\Users\NZDT2941\Desktop\Dossier de présentation Mairie\PMZ\PMZ N°2\3.JPG"
Gauche = Range("D18:D26").Left
Sommet = Range("D18:D26").Top
Largeur = Range("D18:D26").Width
Hauteur = Range("D18:D26").Height

If Photo <> False Then
Feuil3.Shapes.AddPicture Photo, True, True, Gauche, Sommet, Largeur, Hauteur

End If

End Sub