1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
   | Sub retirer_le_surplut()
'
' retirer_le_surplut Macro
'
' Touche de raccourci du clavier: Ctrl+k
'
    Range("F1").Select
    Selection.AutoFilter
    ActiveSheet.Range("$A$1:$K$983294").AutoFilter Field:=6, Criteria1:=Array( _
        "Archive WinRAR", "Chrome HTML Document", "Data Base File", "Fichier IDX", _
        "Fichier JPG", "Fichier PNG", "Fichier SUB", "Paramètres de configuration"), _
        Operator:=xlFilterValues
    Range("A151").Select
    ActiveWindow.SmallScroll Down:=-144
    Rows("2:252").Select
    Selection.Delete Shift:=xlUp
    ActiveSheet.Range("$A$1:$K$983130").AutoFilter Field:=6, Criteria1:=Array( _
        "VLC media file (.avi)", "VLC media file (.mkv)", "VLC media file (.mp4)"), _
        Operator:=xlFilterValues
    ActiveWindow.SmallScroll Down:=-132
End Sub | 
Partager