Probleme macro passage de excel 2000 a 2003

bonjour,

voila j'ai crée une macro simple que vous pouvez voir si dessous mais voila nous somme passé a excel 2000 a excel 2003 et rien ne passe losque je lence la macro.

merci d'avance de votre aide.

Private Sub CommandButton1_Click()
On Error Resume Next
If Err <> 0 Then
Worksheets("Modèle2 (2)").Delete
Worksheets("Modèle1 (2)").Delete
End If
Worksheets("Modèle1").Copy before:=Worksheets("Modèle1")
Worksheets("Modèle1 (2)").Name = (Worksheets("controle").Range("a1"))

Worksheets("Modèle2").Copy before:=Worksheets("Modèle1")
Worksheets("Modèle2 (2)").Name = (Worksheets("controle").Range("a2"))

On Error Resume Next
Worksheets("Modèle1 (2)").Select
If Err <> 0 Then
Else
MsgBox "les Feuilles existe déja veuillez cliquer 2 fois sur supprimer après avoir cliqué sur OK"

Worksheets("Modèle2 (2)").Delete
Worksheets("Modèle1 (2)").Delete


End If

End Sub