Problème exécution de macro

Bonjour,

Je cherche à exécuter une macro de tri sur une plage variable :

Sub trierTableau()
   Sheets("Feuille1").Range("A1").CurrentRegion.Select
    Selection.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

Mon pb, j'ai une fonction main, dans laquelle je créé mon tableau et dans laquelle je veux appeler trierTableau.

Résultat : si j'appelle la macro trierTableau sur ma feuille par un bouton, mon tableau est trié sans pb, mais si j'appelle ma macro dans ma fonction main, il me fait une erreur :

Erreur exécution 1004 : la méthode Select de la classe range a échoué.

Savez-vous d'où vient cette erreur ?

Bonjour,

Je ne vois pas ce que tu veux dire par "fonction main". Toutefois essaye aussi ceci :

Sub trierTableau() 
   Sheets("Feuille1").Range("A1").CurrentRegion.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _ 
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Amicalement

@+ Dan