probleme macro novice

[Lylye15]

bonjour,

Je ne suis pas experte du tout en macros !
alors je sollicite votre aide !
j'ai un problème avec un macro voir ci-dessous
il s'agit d'un tableur de suivi de consommables avec 3 feuilles
feuille 1 = mouvement de stock (permet de créer, entrer et sortir mes consommables)
feuille 2 = liste des consommables ( les lignes s'ajoutent au fur et à mesure des créations et le stock se modifie suivant les entrées et sorties)
feuille 3 = data (me sert uniquement de base)

Mon problème vient du fait de la création d'un nouveau consommable :
- le filon est le suivant : création du consommable dans feuille 1, la ligne se crée dans feuille 2, et les donnes sont renvoyés dans la feuille 3 (colonne A = production, colonne B ensachage, .... colonne D secteur
-mon macro identifie bien le secteur

mais lors du renvoie du consommable dans la colonne soit A soit B soit C ...Il l'envoie bien dans la bonne colonne mais me le copie jusqu'en bas de la feuille.
Ce que je souhaiterais c'est qu'il le copie dans le bon secteur mais une seule fois à partir de la ligne 2 sans me rajouter des lignes car il me crée de nouvelles lignes par moment et donc me décale tout le reste.

Je vous joint un petit visuel du tableur mais pas l'original car je ne l'ai pas sur cet ordi !

Voici ce que j'avais :

'copier consommable dans data
EDIT MODO: Mise en forme du code pour lisibilité

Worksheets("data").Select
Rows("2").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRigntOrBelow
Selection.Font.Bold = False
Select Case (valeur(0))
Case Is = "Production"
Range("Production") = valeur(1)
Range("A2:C2").Select
Selection.Delete Shift:=xlUp
Case Is = "Pharmacie"
Range("Pharmacie") = valeur(1)
Range("A2:C2").Select
Selection.Delete Shift:=xlUp
Case Is = "Ensachage"
Range("Ensachage") = valeur(1)
Range("A2:C2").Select
Selection.Delete Shift:=xlUp

Merci beaucoup de votre aide

 

[drul]

Salut, un ou printscreen de ton tableau stp
Et la macro complète aussi, sinon, c'est très très difficile ...