Macro pour déplacer des lignes en fonction d'un choix

Bonjour à tous,

je cherche à mettre en place une macro qui me permettrait d'archiver des lignes après validation par un responsable de la réalisation des actions demandées.

Il faudrait que ces lignes soient coupées de la feuille d'origine (doléances) pour être stockées sur une autre feuille du fichier (archives). Concrètement, quand la dernière case est remplie par le choix satisfaisant la ligne doit subir le traitement.

Je joins le modèle de mon fichier pour faciliter les échanges.

Merci beaucoup pour l'aide que vous pourrez m'apporter.

Cordialement,

Villars

A mettre dans le module de ta feuille Doléances.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Range("P3:P1000"), Target) Is Nothing Then
        If Target.Value = "Satisfaisant" Then
            Application.EnableEvents = False
            derlig = Sheets("Archives").Range("A" & Sheets("Archives").Rows.Count).End(xlUp).Row + 1
            Range("B" & Target.Row & ":P" & Target.Row).Copy Destination:=Sheets("Archives").Range("A" & derlig)
            Rows(Target.Row).Delete
            Application.EnableEvents = True
        End If
    End If
End Sub

Super, ça marche pile comme il faut. Merci beaucoup !!!!