Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Intersect(Target, Columns(6)).Value <> "Terminé" And _
Intersect(Target, Columns(6)).Value <> "" Then
DlgnP = Sheets("Projets").Cells(Rows.Count, 2).End(xlUp).Row
Target.EntireRow.Cut Destination:=Sheets("Projets").Cells(DlgnP + 1, 1)
Target.EntireRow.Delete
End If
End If
End Sub