Copie d'une feuille à une autre avec filtre

Bonsoir la communauté

Après plusieurs recherche sur Internet, j'ai trouvé une macro (un ? une ?) qui copie toutes mes données de la feuille1 vers la feuille2 qui fonctionne, cependant, elle copie/colle aussi les images ce qui augmente la taille de mon fichier assez rapidement du fait qu'il est ouvert par de multiples utilisateurs chaque jours.

De plus, je souhaiterai qu'il y est un filtre lors de la copie vers la deuxième feuilles, je m'explique :

La première feuille se nomme "Prospection", et la seconde feuille "Commande",

je souhaite que lorsqu'on indique dans une colonne dite commande :"non" (la ligne soit automatique masquée sur la feuille commande).

Est ce possible ?

J'ai une utilisation basique sur Excel, mais actuellement étudiant et stagiaire dans une entreprise, j'aimerai réaliser à succès ma mission confiée même si ça n'a aucun rapport avec ma mission globale, pouvez-vous m'aider ?

En vous remerciant d'avance,

Max

Bonsoir à tous

Bonsoir Max57 et bienvenue sur le forum

Tu mis mon fichier en pièce jointe et surement tu trouves l'aide

Cordialement

Bonjour. Bienvenue sur le Forum

Ce Code masque les lignes dont la valeur en colonne A est le texte non

Sub test()
Dim i As Integer, dlg As Integer
dlg = ActiveSheet.Range("A65536").End(xlUp).Row
For i = 1 To dlg
If Range("A" & i) = "non" Then
Rows(i).EntireRow.Hidden = True
End If
Next
End Sub

Cordialement

Merci infiniment,

Je vais essayer de détailler le code pour me coucher moins bête ce soir.

Bonne soirée à vous !

Bonjour,

Une autre approche avec l'utilisation d'un tableau et filtre élaboré.

Cdlt.

Option Explicit
Private Sub CommandButton1_Click()
' Filtre OUI
    ActiveSheet.ListObjects(1).Range.AutoFilter Field:=4, Criteria1:="=oui"
End Sub
Private Sub CommandButton2_Click()
' Tout afficher
    With ActiveSheet
        .ListObjects(1).HeaderRowRange.Select
        On Error Resume Next
        .ShowAllData
        On Error GoTo 0
    End With
End Sub