Problème de variable String et interger

Bonsoir le forum,

Un petit souci avec mes variables qui récupère des données pour sauvegarder le fichier.

Ci dessou le code

Dim Rep As String, An As Integer, Sem As String

Rep = "M:\DOP DT\Bases Techniques Chauffage\COMPTEUR HORAIRE AGENTS\Semainier divers groupes\" & Sheets("Données").Range("D1").Value

An = Sheets("Données").Range("B1").Value

Sem = "Semaine " & Sheets("Données").Range("C1").Value & ".xlsm"

Application.DisplayAlerts = False 'Arret des alertes

ActiveWindow.SelectedSheets.Visible = False

Sheets("Accueil ").Select

ChDir (Rep & " " & An) 'Sauvegarde du fichier

ActiveWorkbook.SaveAs Filename:=Rep & " " & An & "\" & Sem

MsgBox "Le dossier est sauvegardé !"

Application.DisplayAlerts = True 'Réactive les alertes

La ligne en rouge me met l'erreur "chemin introuvable..."

Merci pour votre aide

C'est en cherchant que l'ont trouve...

La solution/

Dim Rep As String, An As String, Sem As String

Rep = "M:\DOP DT\Bases Techniques Chauffage\COMPTEUR HORAIRE AGENTS\Semainier divers groupes\" & Sheets("Accueil ").Range("C4").Value

An = Sheets("Données").Range("B1").Value

Sem = "Semaine " & Sheets("NS").Range("C18").Value & ".xlsm"

Application.DisplayAlerts = False 'Arret des alertes

ActiveWindow.SelectedSheets.Visible = False

Sheets("Accueil ").Select

ChDir (Rep) 'Sauvegarde du fichier

ActiveWorkbook.SaveAs Filename:=Rep & "\" & An & "\" & Sem

MsgBox "Le dossier est sauvegardé !"

Application.DisplayAlerts = True 'Réactive les alertes

End Sub