Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Sheets("En cours").Activate
For i = 2 To Range("A6553").End(xlUp).Row
If Cells(i, 11) = "TERMINE" Then
cible = Cells(i, 2).Value
derligne = Sheets(cible).Range("A65535").End(xlUp).Row + 1
Range(Cells(i, 1), Cells(i, 12)).Cut Destination:=Sheets(cible).Range("A" & derligne)
Rows(i).Delete
End If
Next i
End Sub