Remplir une feuil en fonction de deux condutions

Bonjour,

j'ai un soucis avec VBA si quelqu'un pourras m'aider, je dos créer une Macro qui copie des données depuis une feuils vers une autre en fonction de la valeur de colonne "H", moi je veut copier en fonction de H et D, si la valeur de colonne H commence avec Els* et que la valeur de D=Immo, alors je copie dans la feuil 2

voilà ce que j'ai pu faire

Sheets("Temps Interne - Ressources Brut").Select

Columns("H:H").Select

Selection.AutoFilter

ActiveSheet.Range("$H$1:$H$10000").AutoFilter Field:=1, Criteria1:="ELS*", _

Operator:=xlAnd

Range("G:G,H:H,M:M").Select

Selection.Copy

Sheets("ELS GESTION").Select

Range("A1").Select

ActiveSheet.Paste

Sheets("Temps Interne - Ressources Brut").Select

Application.CutCopyMode = False

Selection.AutoFilter

Range("A1:C1").Select

With Selection.Interior

.Pattern = xlSolid

.PatternColor = 0

.ThemeColor = xlThemeColorAccent1

.TintAndShade = 0

.PatternTintAndShade = 0

End With

Selection.Font.Bold = True

With Selection.Font

.ThemeColor = xlThemeColorDark1

.TintAndShade = 0

End With

Range("A1").Select

End Sub

une j'ai créer une Macro qui copier 3 colonnes dans une Feuil à partir d'une autre,

Bonjour,

Sans fichier aucun test possible mais regardes ceci si ça fonctionne :

Sub Test()

    Dim Fe As Worksheet

    Set Fe = Sheets("Temps Interne - Ressources Brut")

    Fe.Columns("D:H").AutoFilter
    Fe.Range("$D$1:$H$10000").AutoFilter 1, "ELS*", xlAnd
    Fe.Range("$D$1:$H$10000").AutoFilter 5, "Immo", xlAnd

    Fe.Range("G:G,H:H,M:M").Copy Sheets("ELS GESTION").Range("A1")

    Application.CutCopyMode = False
    Fe.AutoFilter

    With Fe.Range("A1:C1")

        With .Interior
            .Pattern = xlSolid
            .PatternColor = 0
            .ThemeColor = xlThemeColorAccent1
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With

        With .Font
            .Bold = True
            .ThemeColor = xlThemeColorDark1
            .TintAndShade = 0
        End With

    End With

End Sub

@Theze

Merci pour votre réponse mais j'ai un message d'erreur, au niveau de la ligne "Fe.AutoFilter"

je met un fichiers joint en cas ou.

Merci d'avance