With ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count) 'Placement en B3:L23
.Left = Range("B3:L23").Left
.Top = Range("B3:L23").Top
.Width = Range("B3:L23").Width
.Height = Range("B3:L23").Height
End With
With ActiveSheet.Shapes(ActiveSheet.ChartObjects(ActiveSheet.ChartObjects.Count).Name)
.ScaleWidth 0.98, msoFalse, msoScaleFromTopLeft 'Redimensionnement
.ScaleHeight 0.98, msoFalse, msoScaleFromTopLeft 'Redimensionnement
.IncrementTop 4 'Décalage de quelques pixels
.IncrementLeft 6 'Décalage de quelques pixels
End With