Sub COMP()
Dim I As Integer
For I = 1 To 45
On Error Resume Next ' <---- parce que la flèche Up 33 est absente sur la feuille
Select Case Sheet31.[D1].Offset(I + 1).Value
Case Is = 0.5
Sheets("SCHEME").Shapes("Up " & I).Visible = True
Sheets("SCHEME").Shapes("Down " & I).Visible = False
Case Is >= 1
Sheets("SCHEME").Shapes("Up " & I).Visible = False
Sheets("SCHEME").Shapes("Down " & I).Visible = True
End Select
Next I
End Sub