Pourquoi ceci ne fonctionne pas ?

Bonjour,

Pourquoi ceci ne fonctionne pas ?

Private Sub CommandButton1_Click()
[ActiveCell.Offset(0, 1).Select] = UserForm1.TextBox1
Unload UserForm1

End Sub

PAR CONTRE CECI FONCTIONNE

Private Sub CommandButton1_Click()
[a1] = UserForm1.TextBox1
Unload UserForm1

End Sub

Mais je voudrais coller la saisie du textbox dans la cellule située à droite de la dernière cellule sélectionnée.

MERCI POUR VOTRE AIDE