Dim objShp As Shape ' Déclarations
'msoShapeDownArrow
x = 100 'largeur de départ
y = 50 'hauteur de départ
For i = 1 To 5 'boucle pour les 5 shapes montantes
Set objShp = ActiveSheet.Shapes.AddShape(msoShapeUpArrow, x, y, 20, 40) 'création de la flèche montante
If i = 3 Or i = 4 Then 'si c'est la flèche 3 ou 4
objShp.Fill.ForeColor.RGB = RGB(255, 0, 0) 'mettre en rouge
Else 'sinon
objShp.Fill.ForeColor.RGB = RGB(0, 255, 255) 'mettre en vert
End If 'fin du si
objShp.Name = "plus" & i 'nommer la flèche avec incrémentation
objShp.IncrementRotation 45 'inclinaison de la flèche
x = x + 150 'espace entre chaque flèche
Next