Dim i&, a%
For i = 1 To 46
Select Case Feuil1.[L1].Offset(i)
Case Is <= 1: a = 3
Case 2 To 29: a = 30
Case 30 To 59: a = 5
Case 60 To 89: a = 53
Case Is >= 90: a = 2
End Select
With Feuil2.Shapes(i).Fill
.ForeColor.SchemeColor = a
.Visible = a
End With
Next