Modification macro ?

Bonsoir avec le code ci-dessous je copie certaines données d'une feuille à une autre.

J'aimerais que ce soit modifié de la façon suivante :

Je voudrais que la macro copie sous deux conditions :

Si colonne 4 = A8001 et si colonne 3 = Bonjour alors ça copie

Sheets("chantiers").Range("A2:H2000").ClearContents

With WsSource

If .AutoFilterMode = True Then .ShowAllData

NbLg = .Range("A" & Rows.Count).End(xlUp).Row

.Range("A1:H" & NbLg).AutoFilter Field:=4, Criteria1:="=*A8001*"

If Application.Subtotal(3, .Columns("A")) > 1 Then

.Range("A2:H" & NbLg).SpecialCells(xlCellTypeVisible).Copy Destination:=WsDestin.Range("A2")

.Range("A2:H" & NbLg).SpecialCells(xlCellTypeVisible).EntireRow.Delete

End If

.Range("A1:H" & NbLg).AutoFilter

End With

Salut le Forum

En effectuant le Filtre sur deux colonnes.

        With .Range("A1:H" & NbLg)
            .AutoFilter Field:=3, Criteria1:="=Bonjour"
            .AutoFilter Field:=4, Criteria1:="=A8001"
        End With

Mytå

J'essaye demain.

Excellent ! merci