Simplifier

[Olyxier]

Bonjour le forum

comment peut on simplifier ce code

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

Select Case Range("AY43").Value

Case 11
Range("AY43").Copy Range("BY167")
Case 12
Range("AY43").Copy Range("BY167")
Case 13
Range("AY43").Copy Range("BY167")
Case 14
Range("AY43").Copy Range("BY167")
Case 15
Range("AY43").Copy Range("BY167")
Case 16
Range("AY43").Copy Range("BY167")
Case 17
Range("AY43").Copy Range("BY167")
Case 18
Range("AY43").Copy Range("BY167")
Case 19
Range("AY43").Copy Range("BY167")

merci à vous et bonne journée

 

[Banzai64]

Re : Simplifier

Bonjour

essayes

Case 11 To 19
  Range("AY43").Copy Range("BY167")

 

[Olyxier]

Re : Simplifier

Super merci BANZAI