Message erreur selection

bonjour message d'erreur ! vous pouvez m'aider ?
message est le suivant argument non facultatif et il arrêt sur selection

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Workbook_Open()   Range("A1:C1").Select For a = 1 To 2 selection.Interior.ColorIndex = 6 Application.Wait (Now + TimeValue("0:00:01")) selection.Interior.ColorIndex = xlNone Application.Wait (Now + TimeValue("0:00:01")) Next a   End Sub

---

Bonjour à tous,
pilounet54 j'ai testé ton code sur XL-2007 et cela fonctionne lorsque j'ouvre le classeur, a quel moment a tu le message d'erreur ?

c'est un bouton qui se créé à cette place l'erreur se fait pas sur tous les fichiers ?
et l'erreur se produit à l'ouverture

il ne reconnait pas selection? bisard es que en déclarant quelque chose cela serai mieux et quoi ?

Quelle version d'Excel tu utilises ?

Avec 2010, j n'ai pas non plus de message d'erreur..

version 2013