bonsoir le forum,

Voici un code qui me classe par ordre d'arrivée un tableau des cellules B22 à L57, je voudrais ajouter un bout de code pour que les lignes vides en dessous du classement se cache car il peut y avoir que 5 lignes (de B22 à L 27) qui soit classée et endesous rien.
merci de votre aide.
jacky
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Public Sub ClasserManche1(ByVal NomFeuil As String)
 
Worksheets(NomFeuil).Range("B22:L57").Select
    Worksheets(NomFeuil).Sort.SortFields.Clear
    Worksheets(NomFeuil).Sort.SortFields.Add _
        Key:=Range("B22:B57"), SortOn:=xlSortOnValues, Order:=xlAscending, _
        DataOption:=xlSortNormal
    With Worksheets(NomFeuil).Sort
        .SetRange Range("B22:L57")
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Worksheets(NomFeuil).Range("Q22").Select
End Sub