Option Explicit
Sub test()
Dim c1 As ChartObject, c2 As ChartObject
With Sheets("Feuil1")
If .ChartObjects.Count > 1 Then
Set c1 = .ChartObjects(.ChartObjects.Count - 1)
Set c2 = .ChartObjects(.ChartObjects.Count)
c2.Top = c1.BottomRightCell.Offset(3, 0).Top
c2.Left = c1.Left
End If
End With
End Sub