problème de sauvegarde (encore)

Salut tout le monde !

j'ai un souci mais ou je ne sais pas mais ceci ne fonction pas !

Private Sub CommandButton3_Click()
MsgBox ("Pour info David ta sauvegarde se trouve dans C:\Documents and Settings\David ...\Mes documents!")
Sheets("calendrier").Select
Sheets("calendrier").Unprotect
Sheets("calendrier").Copy
'Suppression des boutons (ActiveX) dans la feuille
For Each Obj In ActiveSheet.OLEObjects
If TypeOf Obj.Object Is MSForms.CommandButton Then Obj.Delete
Next
Application.DisplayAlerts = False
ActiveSheet.DrawingObjects.Delete
ActiveWorkbook.SaveAs Filename:=Range("C1").Value & Range("E2").Value & Range("J2").Value & ".xls"
ActiveWorkbook.Close savechanges:=False
Sheets("calendrier").Visible = False

End Sub

merci de votre aide !