Private Sub Worksheet_Change(ByVal Target As Range) 'à chaque changement (édition) dans cet onglet
Dim dest As Range 'déclare la variable dest
'si le changement intervient en dehors de la colonne E, sort de la procédure
If Application.Intersect(Target, Range('E1:E' & Range('E65536').End(xlUp).Row)) Is Nothing Then Exit Sub
'condition : si le texte edité dans la cellule est 'terminée' (accepte aussi les majuscules)
If UCase(Target.Value) = 'TERMINÉE' Then
Set dest = Sheets('action terminées').Cells(Target.Row, 1) 'définit la variable dest (pas de s à actions ???)
dest.Insert Shift:=xlDown 'insère une ligne
Target.EntireRow.Copy Destination:=dest.Offset(-1, 0) 'copie et colle la ligne entière
End If 'fin de la condition
End Sub