bonjour,
je débute et dans le tri descendant je voudrais supprimer les lignes vides qui passent au dessus car le tableau n'est parfois pas rempli en entier
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
Sub tridécroissant()
'
' tridécroissant Macro
 
'
' Touche de raccourci du clavier: Ctrl+b
'
ActiveSheet.Unprotect ("mdp")
    Range("B8:N41").Select
    Selection.Sort Key1:=Range("N8"), Order1:=xlDescending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
        ActiveSheet.Protect ("mdp")
        Range("A1").Select
End Sub
Merci