Je souhaiterais supprimer le contenu d'une certaines selection("A10,Z10") dans toutes les feuilles de mon classeur sauf les 3 premieres.

Voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Sub ClearAllSheets()
 
    Dim i
 
    For i = 4 To Sheets.Count
        Sheets(i).Range("A1:1000").Value = ""
    Next i
 
End Sub
Mais cela me donne l'erreur suivante:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
 
Sheets(i).Range("A1:1000").Value = "" 
Run time error 1004
Application defined or object defined error
Une idee?