Je ne comprend pas mon erreur

J'ai fais un petit programe. et je veu que celui-ci demarre quand on clique sur un bouton

Private Sub CommandButton1_Click()

Dim Chemin
Application.DisplayAlerts = False
Chemin = "\mon fichier"
ActiveWorkbook.SaveAs Filename:=Chemin & ActiveWorkbook.Name, FileFormat:=xlNormal
Application.DisplayAlerts = True

On Error Resume Next
X = Sheets("Sheet1").Range("A65536").End(xlUp).Row
For i = 1 To X

etc...

End Sub

Mom programe marche mais le bouton lui ne lance pas le programme.Que dois je faire ??