Sub Graphique_flottant()
Dim marche
marche = Array("Feuil1", "Feuil3") 'CodeName des feuilles concernées
If ActiveWorkbook.Name = ThisWorkbook.Name And ActiveSheet.ChartObjects.Count _
And IsNumeric(Application.Match(ActiveSheet.CodeName, marche, 0)) _
Then ActiveSheet.ChartObjects(1).Top = ActiveWindow.VisibleRange.Rows(3).Top
Application.OnTime Now + 1 / 86400, "Graphique_flottant" 'temporisation d'une seconde
End Sub