Forme VBA transparente

ActiveSheet.Shapes(1).Fill.Visible = msoFalse
VasteMonde