Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A1]) Is Nothing Then Exit Sub
Application.ScreenUpdating = False
Rows.Hidden = False 'affiche tout
If IsEmpty([A1]) Then
[Tableau2].Cut Cells([Tableau1].Row + [Tableau1].Rows.Count, [Tableau2].Column)
[Tableau1].EntireRow.Hidden = True
Else
[Tableau2].Cut Cells([Tableau1].Row, [Tableau2].Column)
End If
End Sub