Option Explicit
Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Fini
Application.EnableEvents = False
If Target.Column = Range("ae1").Column And Target.Count = 1 And Target = "Valider" Then
Range(Cells(Target.Row, "a"), Cells(Target.Row, "ad")).Copy
With Sheets(Trim(Cells(Target.Row, "b").Value))
.Paste .Cells(Target.Row, "a").End(xlUp).Offset(1)
End With
Cells(Target.Row, "a").EntireRow.Delete
Application.CutCopyMode = False
End If
Fini:
Application.EnableEvents = True
End Sub