Déplacer une ligne d'une feuille à une autre lorsqu'une cellule est coché

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 22 Then Exit Sub
If Target <> "" Then
lig = Feuil3.[A65000].End(3).Row + 1 'ligne ou écrire
lg = Target.Row 'lg renvoie N° ligne selectionnée
Feuil3.Range("A" & lig & ":V" & lig).Value = Range("A" & lg & ":V" & lg).Value
''''''pour effacer la ligne du X
'Application.EnableEvents = False 'neutralise évenement
'rows(lg).delete
'Application.EnableEvents = True 'remets
End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells.Interior.ColorIndex = xlNone
[Tableau1].Interior.ColorIndex = xlNone
[Tableau1].Rows(Target.Row - 1).Interior.ColorIndex = 22
End Sub