Bonjour

Je viens de récupérer ce bout de code mais j'ai quelque peu de mal à le comprendre entièrement.J'ai besoin de l'adapter à mon tableau exel par la suite. Quelqu'un pourrait-il m'aider à le décripter?

merci

Voici le code :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub Afficher_Reduire()
'
' Afficher_Reduire Macro
'
' Touche de raccourci du clavier: Ctrl+r
'
    If ActiveSheet.AutoFilterMode Then
        ActiveSheet.AutoFilterMode = False
        'ActiveSheet.Range("Filtre").AutoFilter Field:=7
    Else
        Rows("7:2").AutoFilter
        ActiveSheet.Range("Filtre").AutoFilter Field:=7, Criteria1:="<>"
    End If
End Sub
merci d'avance