modif code Vba

bonjour
dans le classeur ci joint je une cherche solution afin de reproduire un code avec autres données.

je m'explique dans les feuilles 01 qui sera dupliqué par la suite

il existe un code pour la saisie des heures (cellule A14:A100 de C14:C100 puis J14:J100 et L14:L100) le nom de la macro (cre_menu)
idem de B14:B100 et K14:K100 avec "Equipe" macro cre_menu2idem de D14:D100 et D14:D100 avec "Equipe" macro cre_menu3ma demande est comment modifier le code ci dessous afin d'ajouter les données de la feuille Genre (cre_menu4) en F14:F100

Code:

---

1 2 3 4 5

ElseIf Not Intersect(Range("D14:D100"), Target) Is Nothing _ Or Not Intersect(Range("L14:I100"), Target) Is Nothing Then Call cre_menu4

---

Merci de vos lumieres


MP classeur : rafale79

merci d'avance
Sebastien

Bonjour,

A tester
http://www.cjoint.com/c/GHjfr5wPLph

bonjour
ce code ne fonctionne pas j ai erreur 400 ...
je l avais deja tenté ...
merci tout de meme

Re,

Un simple oubli de déclaration de variable

http://www.cjoint.com/c/GHjluXP1vch

re
pouvez vous me dire ou est ce manquement de variable car je tente de repliquer votre code( cre_menu4 ) sur d'autre plage de cellule
et j obtiens toujours erreur 400

H14:H100

merci

Re,

Dans le Module 1 en début

Code:

---

1 2 3

Public cb As CommandBar Public liste As Range, liste2 As Range, liste3 As Range, liste4 As Range, liste5 As Range Sub cre_menu()

---

Ca fonctionne
merci beaucoup
j'etais loin de chercher l'erreur a cette endroi.
En vous remerciant