Disfonction VBA

Bonjour

J'ai telechargé et bidouillé un fichier mais un code plante et je ne sais pas le réparer.

Lorsque je rentre un article j'ai un message d'erreur que je ne sais résoudre, pourriez vous m'y aider

Cordialement

Bonjour,

C'est un peu léger comme explications : Vu le nombre de feuilles, de userform et de boutons, on ne va pas s'amuser à les passer tous en revue pour deviner la question...

A+

Bien sur je comprends, d'autant que je viens de l'essayer ça fonctionne lorsque j'entre un article sauf que ça bugge quelque part . L' userform sortie déconne aussi.

Le message est le suivant

'On remplit la feuille de sortie

Set fs = Sheets("Fiche des sorties")

fs.Range("A2:F2").Insert Shift:=xlDown

fs.Range("A3:F3").Copy

fs.Range("A2:F2").PasteSpecial xlPasteAll

fs.Range("A2") = TextBox1

fs.Range("B2") = ComboBox1

fs.Range("C2") = TextBox6

fs.Range("D2") = ComboBox2

fs.Range("E2") = ComboBox3

++