Couper/coller une ligne d'un feuille sur l'autre en fonction d'une donnée

Bonjour,

Je travaille sur un tableau de suivi d'activité pour mon service et j'aimerais que lorsque dans la colonne "Etat" de la feuille "A faire", il y a écris "fait", la ligne soit automatiquement couper de la feuille "A faire" pour être coller sur la feuille "Fait".

Je sais que c'est possible mais je n'y connais rien, alors si certains d'entre vous pouvez m'aider, ca serait vraiment gentil.

Merci d'avance pour votre aide.

Bonjour,

Ci-contre un test. Pas très joli, je n'ai pas réussi à passer outre le SELECT, peut être plus simple mais il fait le travail :

Sub ARCHIVAGE()
Application.DisplayAlerts = False
Application.ScreenUpdating = False
With Worksheets("A faire")
    .ListObjects(1).Range.AutoFilter 7, "Fait"
    If .ListObjects(1).DataBodyRange.SpecialCells(xlCellTypeVisible).EntireRow.Count > 0 Then
        .ListObjects(1).DataBodyRange.SpecialCells(xlCellTypeVisible).Copy
        Worksheets("Fait").Activate
        LC = Worksheets("Fait").ListObjects(1).ListRows.Count + 2
        Range("A" & LC).Select
        ActiveSheet.Paste
        Worksheets("A faire").ListObjects(1).DataBodyRange.SpecialCells(xlCellTypeVisible).Rows.Delete
    .ShowAllData
    End If
End With
Application.CutCopyMode = False
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Cdlt,

Bonjour,

Merci, beaucoup. Cela fonctionne.