Sub test()
Dim sh As Shape, Gauche%, Clr%
Clr = 500
Gauche = 30
For Each sh In ActiveSheet.Shapes
If sh.Type = msoOLEControlObject Then
With sh.OLEFormat.Object.Object
Clr = Clr + 2000
.BackColor = Clr: .Caption = ""
End With
ElseIf sh.Type = msoFormControl Then
With sh
.Top = 40: .Width = 20: .Height = 20
Gauche = Gauche + 30
.Left = Gauche
End With
End If
Next
End Sub