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

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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