Correction d'un code

Bonjour,

je souhaite créer une liste sur ma feuille de calcul 1 (colonne partant de la cellule B21 et s'arretant en cellule B63) et ce à partir d'une saisie de cellules se trouvant sur une colonne de ma feuille 2 allant de A2 à A100 , lorsque j'ai remplit la liste de ma feuille 1(arrivé en B63) , je souhaite que la selection suivante recommence en B21 , j'ai ecrit ce bout de code mais il ne marche pas :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  If Not Intersect(Range("A2:A100"), Target) Is Nothing And Target.Count = 1 Then
    With Sheets("Feuil1")
      .Range("B21") = IIf(.Range("B21") >= 63, 2, .Range("B21") + 1)
        .Cells(.Range("CB1"), 1) = Target.Value
    End With
  End If
End Sub

MERCI pour toute correction