Bonsoir p56 ,leoooooooooooooooooo, et le forum
Même message que leo
Windows10 64 bits + office 365 64bits
Bonne soirée
Sub Histo(Ttk As Variant, L As Single, T As Single, W As Single, H As Single)
'ligne ci-dessous en défaut
With ActiveSheet.Shapes.AddShape(msoShapeRoundedRectangle, L...