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