Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With [Tableau1]
With .Rows(.Rows.Count + 1)
If Not Intersect(ActiveCell, .Cells(1)) Is Nothing And .Cells(0, 1) <> "" Then
.Rows(0).Copy .Cells(1)
.SpecialCells(xlCellTypeConstants).ClearContents
End If
End With
End With
With [Tableau2]
With .Rows(.Rows.Count + 1)
If Not Intersect(ActiveCell, .Cells(1)) Is Nothing And .Cells(0, 1) <> "" Then
.Rows(0).Copy .Cells(1)
.SpecialCells(xlCellTypeConstants).ClearContents
End If
End With
End With
End Sub