Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 13 Or Target.Row < 4 Then Exit Sub
If Target = "" Then Exit Sub
If Target = "oui" Then
derligne = Sheets("sorties").Cells(Rows.Count, 3).End(xlUp).Row
Cells(Target.Row, 3).Resize(1, 18).Copy Sheets("sorties").Cells(derligne + 1, 3)
Target.EntireRow.Delete
End If
End Sub