En VBA pour copier une ligne

Bonjour à tous,

j'aimerai de l'aide, je ne suis pas expert en VBA ( Loin de là ).

je souhaiterai que lorsque la colonne C de la feuille 1 est plus petite que la colonne B alors la ligne complète se copie sur la feuille 2 . Et si possible s’efface automatiquement lorsque la valeur de la colonne C de la feuille 1 est supérieur a la colonne B de la feuille 1.

Merci de votre aide,

David

Bonjour,

Une proposition.

ALT F8 et exécuter la procédure.

Cdlt.

Public Sub Handek()
Dim ws As Worksheet, ws2 As Worksheet
Dim lRow As Long, lastRow As Long, rw As Long

    Set ws = Worksheets("Feuil1")
    Set ws2 = Worksheets("Feuil2")
    ws2.Cells(1).ClearContents
    lastRow = ws.Cells(Rows.Count, 1).End(xlUp).Row
    For lRow = lastRow To 1 Step -1
        If ws.Cells(lRow, 3).Value < ws.Cells(lRow, 2).Value Then
            rw = rw + 1
            ws2.Cells(rw, 1).Resize(, 3).Value = ws.Cells(lRow, 1).Resize(, 3).Value
            ws.Cells(lRow, 1).Resize(, 3).Delete
        End If
    Next lRow

End Sub