Vba excel fonction sort

Bonjour,
je viens demander un petit coup de main.
j'ai un fichier excel qui fait base de données, et j'utiliser un code vba pour trier les cellules de colonnes A à G, problème j'ai un message d'erreur:
erreur d'exécution 1004 :
référence de tri non valide. vérifier qu'elle se trouve bien parmi les données à trier et que la zone trier par n'est pas identique ou vide

Sub tri(i As Integer) 
'code de tri de liste de donné 
On Error Resume Next 
Select Case i 
Case 1 
    Sheets(i).Columns("A:D").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ 
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 
Case 2 
    Sheets(i).Columns("A:A").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ 
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 
Case 3 
    Sheets(i).Columns("A:G").Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _ 
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom 
End Select 
End Sub 

le cas 1 fonctionne mais pas le 2 et le 3.
le i est quand je clique sur un bouton il tri une page différente.
Merci de votre aide.
Pou Pouille



la théorie et la pratique c'est la même chose...enfin en théorie