Private Sub Worksheet_Change(ByVal Target As Range)
If flag Then Exit Sub
flag = True
col = Range("7:7").End(xlToRight).Column
If Target.Column = col And Target.Row > 7 And UCase(Target.Value) = "X" Then
nomfeuil = Range("A" & Target.Row)
Range( Cells(Target.Row ,1),Cells (Target.Row,col)).Copy Destination:=Sheets(nomfeuil).Range("A65536").End(xlUp).Offset(1, 0)
Sheets(nomfeuil).Range("A65536").End(xlUp).Offset(0, col) = Date
Rows(Target.Row).Delete
End If
flag = False
End Sub