probléme avec case à cocher

salut à tous
en feuil1 j'ai un premier dossier avec une case à cocher en face de chaque ligne, quand je la coche la ligne elle va bien ce collé sur la feuil2 mais le souci c quand je la décoche "avec la macro que j'ai faite"c la ligne complete qui s'en va
j'aurais voulu que ce soit que le texte
merci de m'aider voici ma macro(je crois que le souci viens de .delete


Private Sub CheckBox1_Click()

If CheckBox1 Then
Worksheets("feuil1").Range("A1:B1").Copy _
Destination:=Worksheets("feuil2").Range("A1:B1")
Else
Worksheets("feuil2").Range("A1:B1").Delete
End If

End Sub