Lenteur d'exécution d'une macro

Bonjour,

J'ai créé avec excel 2003 un planning et une macro permet d'effacer les données mais
cela est d'une lenteur pas possible.
Voici ma macro
Sub Effacer01Janvier()

Application.ScreenUpdating = False

rep = MsgBox("Voulez vous vraiment Effacer les Données", vbYesNo, "Effacer")
If rep = vbYes Then
Dim cells As Range
Range("J53:AN97,K98:Y105,AA98:AP105,AR98:BG105").Select
Selection.ClearContents

Else
If rep = vbNo Then
End If
End If
Range("H49").Select

Application.ScreenUpdating = True
End Sub


mais rien n'y fait

quelqu'un pourrait il m'aider

Merci