faire une Macros

[Olyxier]

Bonjour le Forum
voici un code de feuille qui me sert à recopier une partie de ma feuille dans une autre partie de la feuille lorsque
je met un 1 dans la case GB5 ou un 2 ou un 3 ect... le code s'execute le truc s'est que j'arrive à le faire marcher
en code de feuille mais lorsque je veus faire une macros qui le ferais je n'y arrive pas le truc serais que si il y a
un 1 dans la case GB5 lorsque je clic sur le bouton de ma macros le code pour la case 1 s'execute en ce moment lorque
je clic sur le bouton le debogeur se declanche et me dit ELSE sans IF
merci à vous et bonne journée

Sub ESSAI()

ElseIf Target.Address(0, 0) = "GB5" Then

Select Case Range("GB5").Value

Case 1
Range("A137").Copy Range("GG4")
Range("B137").Copy Range("GP4")
Range("B138").Copy Range("GL4")
Range("O105").Cut Range("GT4")
Range("G137").Copy Range("GH4")
Case 2
Range("A143").Copy Range("GG4")
Range("B143").Copy Range("GP4")
Range("B144").Copy Range("GL4")
Range("O106").Cut Range("GT4")
Range("G143").Copy Range("GH4")
Case 3
Range("A149").Copy Range("GG4")
Range("B149").Copy Range("GP4")
Range("B150").Copy Range("GL4")
Range("O107").Cut Range("GT4")
Range("G149").Copy Range("GH4")

 

[Olyxier]

Re : faire une Macros

OK nos post ce sont croiser merci pierrot c'est cela que je voulais
Bonne journée

 

[Olyxier]

Re : faire une Macros

ok nos post ce sont croisé c'est bien cela que je voulais merci beaucoup Pierrot et Bonne journée