XL 2010 Simplifier une macro

[fablog]

Bonjour, est-il possible de simplifier cette macro par laquelle j'écris "Cliquez ici" dans plusieurs cases ayant une liste déroulante?

Range("E5:G5").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("E7").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("E9").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("J3:p3").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("J5:p5").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("J7:p7").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("J9:p9").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("U163:W163").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("U164:W164").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("U165:W165").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("U166:W166").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("Y163").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("Y164").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("Y165").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("Y166").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("AG163").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("AG164").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

  Range("AG165").Select

  ActiveCell.FormulaR1C1 = "Cliquez ici"

Merci par avance!

 

[DoubleZero]

Bonjour, fablog, le Forum,

Comme ceci ?

Option Explicit
Sub Ici_et_là()
' emplacements adapter...
    Range("A1:D1,E5,E7,E9,J3,J5,J7,J9,U163").Value = "Cliquez ici"
End Sub

A bientôt

 

[fablog]

Excellent, merci beaucoup. Je viens d'en apprendre un peu plus sur VBA