Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 2 Or Target.Row < 3 Then Exit Sub
If Target = "imprimé" Then
Target.EntireRow.Copy Sheets("Sac").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Target.EntireRow.Delete
End If
End Sub