Sur un fichier Excel, je souhaiterai copier des infos d'un onglet à un autre avec une condition .
Par exemple colonne A, B, C, D sur "onglet 1" coller les infos des colonnes A,B,C sur le 2ème onglet a condition qu'il y ait un "ko" sur la colonne D

J'espère avoir été claire

Merci

Voici le script:
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
 
With Sheets("Résultat final")
' Saisie_anomalie Macro
' Coller dans l'onglet résultat final les colonnes de l"onglet anomalie, ceux qui dans la colonne selection est ko Touche de raccourci du clavier*: Option+Cmd+Maj+L"&chr(10)&"'
    Application.Goto Reference:="Saisie_anomalie"
 
    Sheets("Résultat final").Select
    Range("A5:D11").Select
    Sheets("anomalie").Select
    ActiveSheet.Range("$A$1:$E$79").AutoFilter Field:=1, criterial:="ko"
    Range("I23").Select
    Sheets("base de donnée").Select
 
    End With
    Sheets("Résultat final").Select
    Range("A6").Select
    Sheets("Résultat final").Select
    Range("D26").Select
End Sub