Trier ligne par ordre Alphabétique

Bonjour,

Je souhaite trier par une macro les lignes d'un tableau selon la première colonne par Ordre Alphabétique.

Je vous ai mis un exemple simplifié du tableau.

ps: pour arriver à ce tableau j'ai utiliser un scripting.dictionary qui enregistrait les différentes appelations, donc s'il y a un code simplifié avec l'utilisation du dictionary je suis preneur.

Merci.

J'ai trouvé sur internet le code suivant:

Sub Macro1()
'Sélection de la plage à trier
Range("A1:C7").Select
'Lancement du tri, basé sur les données de la colonne A en ordre croissant
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Mais comment indiquer dans mon code que ma plage va de A6 à KTmp où Tmp est une variable de ma procédure qui compte le nombre de ligne à trier.

Bonjour

Tu aurais fourni ton fichier et la macro cela serait (normalement) résolu

Sub Macro1()
'Sélection de la plage à trier
'Lancement du tri, basé sur les données de la colonne A en ordre croissant
Range("A6:K" & Tmp).Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub

Mon fichier était très lourd, avec des macros dans tout les sens, je ne sais pas si ça aurait été plus bénéfique.

Merci pour l'astuce cependant.