Bonjour
comme le titre l'indique, je voudrais supprimer toutes les lignes sous 2 conditions.
J'ai eu la réponse sous une seule condition ici
et ça 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
Sub Test()
Dim Plage As Range
Dim LaColonne As Integer
Dim LeMot As String
Dim NomFeuille As String
    NomFeuille = "LaFeuille"
    LeMot = "toto"
    LaColonne = 3
 
    With ThisWorkbook.Worksheets(NomFeuille)
        ' plage des données
        Set Plage = .Cells(2, 1).Resize(.UsedRange.Rows.Count - 1, .UsedRange.Columns.Count)
 
        With .Range("A1")
            ' retrait des filtres s'il y en a
            .AutoFilter
            ' application du filtre
            .AutoFilter LaColonne, LeMot
            On Error Resume Next
                ' tentative de suppression des résultats
                Plage.SpecialCells(xlCellTypeVisible).EntireRow.Delete
                ' s'il n'y avait pas de résultat : on l'indique
                If Err <> 0 Then MsgBox "Pas de résultat"
            On Error GoTo 0
            ' suppression des filtres
            .AutoFilter
        End With
    End With
End Sub

sauf que pour supprimer la ligne, il faut que la ligne doit contenir LeMot en colonne 3 (comme dans la macro précédente) ET également que colonne 6 soit vide (ne doit pas contenir de date).

Merci d'avance