Copier coller des lignes sur un tableau vers une autre feuille

Bonjour ,

J’ai un tableau excel avec 2 feuilles : feuille 1 , et feuille 2

Je cherche un code vba qui me permet de copier les lignes du tableau qui vont de la colonne A à AD sur 5000 lignes .

SI dans dans la colonne I contient le mot « rejeté» alor colle dans la feuille 2

Exemple si la ligne 8 dans la colonne I contient le mot rejeté alor copie et colle dans la feuille 2

Merci par avance de votre aide apporté

Cordialement

Bonjour,

Ce n'est pas la méthode la plus rapide ... m'enfin ...

À copier dans un module ...

Option Explicit

Sub LesRejets()
Dim Sh1 As Worksheet
Dim Sh2 As Worksheet
Dim Dlig1 As Integer
Dim X As Integer

    Application.ScreenUpdating = False

    Set Sh1 = Worksheets("Feuil1")
    Set Sh2 = Worksheets("Feuil2")
    Dlig1 = Sh1.Cells(Rows.Count, "A").End(xlUp).Row

    For X = 1 To Dlig1
        If Sh1.Cells(X, "I").Text = "rejeté" Then
            Sh1.Cells(X, "I").EntireRow.Copy Sh2.Cells(Sh2.Cells(Rows.Count, "A").End(xlUp).Row + 1, "A")
        End If
    Next X
End Sub

ric

Je te remercie beaucoup ça fonctionne à merveille

Cordialement