Voici mon code, je dois avoir une erreur de syntaxe.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub Macro1()
'
' Macro1 Macro
' Macro enregistrée le 29/08/2007 par RICOH
'
 
Dim var As Integer
 
  For var = 3 To 20
    Range("A & var:E & var").Select
    Range("E" & var).Activate
    With Selection.Interior
        .ColorIndex = 3
        .Pattern = xlSolid
    End With
    Range("A" & var + 1).Select
    Next var
End Sub