Bonjour à toutes et à tous,

je vous expose mon souci, dans un fichier à traitement bi-mensuel, j'ai souhaité automatiser plusieurs opérations
qui étaient faites avant traitement des données. J'ai donc essayé de faire une macro VBA dans Excel 365.
Après avoir réalisé ma première macro VBA, le résultat attendu était là.
Puis après réflexion, il m'a semblé que le tri nominatif sur un nom qui pouvait changer au fil du temps n'était pas optimum.
Alors j'ai voulu effectuer un tri sur une colonne, avec une opération "différent de" et sur deux critères, CATASTROPHE.
Malgré la lecture de la doc Microsoft sur "AutoFilter" et la lecture de quelques forums, mais surtout quelques tentatives de ma part.
Rien ne marche

je vous post le code qui marche :

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
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
Sub Test_Impayes()
'
' Test_Impayes Macro
' Traitement du fichier des impayés
'

' Supprimer les cellules fusionnées dans la première ligne
' afin de réaliser le traitement du fichier
    Rows("1:1").Select
    Selection.UnMerge
    
'Tri et suppresion des dossiers traités par Bérénice
' puis affichage de la colonne avec les cellules vides et de Jérome Bleck

    ActiveSheet.Range("$A$15:$W$3000").AutoFilter Field:=6, Criteria1:= _
        "BERENICE DUPONT"
     
       
    Rows("16:3000").Select
    Selection.Delete
    
    ActiveSheet.Range("$A$15:$W$3000").AutoFilter Field:=6
    
' Selection et suppression des colonnes inutiles

    Range("A:F,H:H").Select
    Range("H1").Activate
    
    Range("A:F,H:H,L:O,U:W").Select
    Range("U1").Activate
    Selection.Delete
    
    
 'Tri du mois -1 = 0 euros
 
    ActiveSheet.Range("$A$15:$I$3000").AutoFilter Field:=6, Criteria1:="0,00"
    
 ' fin provisoire de la macro
    Range("D16").Select
    
End Sub
La ligne que je veux changer est :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
 
 ActiveSheet.Range("$A$15:$W$3000").AutoFilter Field:=6, Criteria1:= _
        "BERENICE DUPONT"
je souhaite trier sur "Différent de" Jérome Bleck et cellules vides.

Help

Merci d'avance de votre aide