Remplacer une cellule par une variable

Chers amis, j'ai presque honte de poser cette question mais mon cerveau doit être dans un mauvais état.

J'ai une liste qui peut évoluer de 1 a 13 lignes.

Je voudrais juste classer les lignes non vides donc faire evoluer la derniere ligne avec une cellule qui contient mon nombre de lignes occupées

JE N'Y ARRIVE PAS .... NUL le vieux si ma liste n'a que 3 lignes remplies je voudrais que mon "13" et "B13" et "C13" soient remplacées par ..... ce que je n'arrive pas a faire

Merci d'aider un vieux

Jean

Bonjour,

Essayer ce code

    With Rows("6:13")
        .Sort key1:=Range("B6"), Order1:=xlAscending, Header:=xlGuess
    End With

merci beaucoup, je vais integrer cela dans mes macros c'est ce que je cherchais.

Merci encore