Enregistrement sur commande d'un fichier

Sub sauvegarde_sphere()
'
' sauvegarde_sphere Macro
' Macro enregistrée le 09/12/2009 par A0012601

 Dim NomFichier As String
  Dim Version As String
 Dim Repertoire As String
 Dim datefichier As Date
 
If CheckBox1 = True Then Range("y3").Value = Range("b3").Value 'copie la lettre qui est devant la case a cocher
If CheckBox2 = True Then Range("y3").Value = Range("e3").Value
If CheckBox3 = True Then Range("y3").Value = Range("g3").Value
If CheckBox4 = True Then Range("y3").Value = Range("i3").Value
If CheckBox5 = True Then Range("y3").Value = Range("k3").Value
If CheckBox6 = True Then Range("y3").Value = Range("m3").Value
If CheckBox7 = True Then Range("y3").Value = Range("o3").Value
If CheckBox8 = True Then Range("y3").Value = Range("q3").Value
If CheckBox9 = True Then Range("y3").Value = Range("s3").Value
If CheckBox10 = True Then Range("y3").Value = Range("u3").Value
 
 
 datefichier = Format(Now, "yyyy,mm,dd")
 NomFichier = Range("W4").Value
 NomFichier = NomFichier & "-" & datefichier
 Repertoire = ActiveWorkbook.Path & "\"
 ActiveWorkbook.SaveAs Repertoire & NomFichier

'
End Sub