XL 2016 EXCEL: Transfert de ligne selon condition.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim OD As Worksheet 'déclare la variable OD (Onglet Destination)
Dim DEST As Range 'déclare la variable DEST (cellule de DESTination)

If Target.Column <> 9 Then Exit Sub 'si le chegement a lieu ailleurs que dans la colonne 9 (=> I), sort de la procédure
If Target.Value = "" Then Exit Sub 'si la cellule est effacée, sort de la procédure
Set OD = Worksheets("SCO_PR19") 'définit l'onglet destination OD
If Target.Value = "OUI" Then 'condition : si OUI est écrit dans la cellule
    Set DEST = OD.Cells(Application.Rows.Count, "A").End(xlUp).Offset(1, 0) 'définit la cellule de destination DEST
    Cells(Target.Row, 1).Resize(1, 9).Copy DEST 'copie les neuf premières cellule de la ligne éditée et les colle dans DEST
    Target.Value = "" 'efface le "OUI"
End If 'fin de la condition
End Sub