Problème VBA

Bonjour,

J'ai le code suivant dans une feuille de calcul Excel:

Private Sub CommandButton1_Click()

Dim Mois As String
Dim Liste As String
Dim Nom As String
Dim Validité As String
Dim Extension As String
Dim EnregistrementfUN As String
Dim NomFichier As String

Mois = Worksheets("Feuil1").Range("F3").Value
Liste = ActiveSheet.Name
Nom = Worksheets("Feuil1").Range("H3").Value
Validité = Worksheets("Feuil1").Range("K3").Value
Extension = ".xls"
EnregistrementfUN = "Q:....\150019"
NomFichier = Liste & " " & Mois & " " & Nom & " " & "ab " & Validité & Extension

If Worksheets("Feuil1").Range("H3").Value = " fUN" Then
ActiveWorkbook.SaveAs Filename:=EnregistrementfUN & "\" & NomFichier, FileFormat:=56
End If


(j'ai volontairement enlevé certaines lignes qui n'avaient pas lieu d'être).

Pour la fonction If
Sur mon PC qui tourne avec MS Office 2007, tout fonctionne comme il faut. Par contre, chez mes collègues qui utilisent excel 2013, la fenêtre d'erreur vient à chaque fois comme quoi la macro n'a pas s'effectuer correctement. En cliquant sur débogage, la ligne commençant par "ActiveWorkbook...." est mise en jaune car apparemment l'erreur se trouve là, mais je ne comprend pas.

Quelqu'un pourrait-il svp m'aider ?