Enregistrer sous avec valeurs de cellules

Bonjour, Il y a quelques mois, j'avais trouvé les codes pour enregistrer mon classeur dans un répertoire précis tout en lui donnant un nom à partir de cellules d'une des feuilles de ce dernier. Je ne sais pourquoi, depuis quelques jours, ça bogue et je n'arrive pas à corriger l'erreur. Voici les codes et où ça bogue :

Sub Sauvegarde()
Dim Path As String
Dim filename As String
Path = "C:\CNESST\"
filename = Range("B10") & Range("B12") & Range("B41") & Range("D41") & Range("F41")
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

Ça bogue à cette ligne :
ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal

Quelqu'un pourrait éclairer ma lanterne?

Bonjour,

Path et Filename sont des mots réservés, choisissez d'autres noms pour vos variables.

Si vous êtes sur 365, l'extension ne devrait-elle pas être .xlsx ? Et FileFormat:=xlOpenXMLWorkbook

Enfin, vous avez peut-être des caractères interdits dans le contenu de vos cellules.

Un gros merci pour les précisions. Ça m'a permis de faire les correctifs nécessaires.