Merci pour la réponse, je comprends ta solution mais j'ai un problème dans la sélection des colonnes:
Columns("H:compteurcol").Select
ActiveWorkbook.Worksheets("Data").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Data").Sort.SortFields.Add2 Key:=Range(Cells(10, 8), Cells(10, compteurcol)) _
, SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
compteurcol est ma variable qui va "détecter" la première colonne vide, elle est numérique (valeur de 78 par exemple).
Pour la ligne 3 du code je pense que ta solution fonctionne mais j'ai une erreur sur la ligne 1. Je pense qu'il n'aime pas avoir "Lettre:Chiffre".
Comment faire ?