Macro enregistrement

Bonjour, j'aimerais créer une macro pour enregistrer une feuille d'un classeur dans un dossier pour faire un historique. Voici ce que j'ai proposé mais ça enregistre tout le classeur et non uniquement la feuille que je souhaite nommée KPI

Sub EnregistrerSous()

Dim LaDate As String
Dim LaAnnéeFormat As String
Dim LaDateFormat As String
Dim LheureFormat As String
Dim LeRep As String

LaDate = Worksheets("KPI").Range("aj2")
LaDateFormat = Format(LaDate, "yyyy_mm_dd")
LaAnnéeFormat = Format(LaDate, "yyyy")
LheureFormat = Format(Time, "hh-mm")
LeRep = ThisWorkbook.Path
'Répertoire de départ
LeRep = "[chemindudossier]\"
'Répertoire cible
ActiveWorkbook.SaveCopyAs Filename:= _
LeRep & LaDateFormat & " à " & LheureFormat & " Rejets_Usine " & ".xlsm"


End Sub

Merci de votre aide

Bonjour et bienvenue sur le forum

Tu devrais joindre ton fichier, ce serait peut-être plus facile.

Bye !