Erreur d'exécution '-2147417848 (80010108)'

Bonjour à tous.

Je viens vous demander de l'aide pour un projet excel.

Tout d'abord, sachez que je suis une débutante dans le domaine.

Dans le cadre du travail, je dois créer un fichier permettant de saisir les fiches clients, les commandes clients et les commandes fournisseurs.

J'ai donc réalisé trois formulaires permettant de saisir ces données.

Tout fonctionnait très bien jusqu'à ce qu'une erreur apparaisse :

Erreur d'exécution '-2147417848 (80010108)'
La méthode '_Default' de l'objet 'Range' a échoué

Erreur d'exécution '-2147417848 (80010108)'
Erreur Automation
L'objet invoqué s'est déconnecté de ses clients.

Voici l'un de mes codes pour saisir les données. Tous les autres codes ont été basés sur le même modèle. Pour des raisons de confidentialité j'ai modifié le nom des text_box.

Sub
Application.ScreenUpdating = False

Feuil3.Activate
Range("A1").Select

Selection.End(xlDown).Select

Selection.Offset(1, 0).Select

ActiveCell = TextBox1.Value

ActiveCell.Offset(0, 1).Value = TextBox2
ActiveCell.Offset(0, 2).Value = TextBox3
ActiveCell.Offset(0, 3).Value = TextBox4
ActiveCell.Offset(0, 4).Value = TextBox5
ActiveCell.Offset(0, 5).Value = TextBox6
ActiveCell.Offset(0, 6).Value = TextBox7
ActiveCell.Offset(0, 7).Value = ComboBox1
ActiveCell.Offset(0, 8).Value = TextBox8
ActiveCell.Offset(0, 9).Value = TextBox9

Unload Me

MsgBox "Votre commande a bien été enregistrée", vbOKOnly + vbInformation, "Confirmation"

End Sub

L'erreur se déclenche au niveau de la ligne "ActiveCell = TextBox1.Value"

J'ai déjà essayé de remplacer les TextBox par de nouvelles mais cela n'a pas fonctionné.

Pouvez-vous m'aider s'il vous plait ??

Merci par avance,

Bonne journée à tous ! :)