Réponse acceptée !
   J'ai essaye en utilisant le code ci-dessous dans un module a part, mais je n'arrive pas a mettre mon datagrid en variable public pour pouvoir l'utiliser avec cette fonction dans la deuxieme fenetre qui contient un MSchart.

Public Sub graphic(ByVal temp_chart As AxMSChart20Lib.AxMSChart, ByVal temp_datagrid As DataGrid)
        Dim tab_valeurs(11, 2)
        Dim compteur As Short
        'use a do ... while instead
        For compteur = 0 To 11
            tab_valeurs(compteur, 0) = temp_datagrid.Item(compteur, 1) 'Décalage d ’une colonne
            tab_valeurs(compteur, 1) = temp_datagrid.Item(compteur, 2) 'car on ignore la 1ère
            tab_valeurs(compteur, 2) = temp_datagrid.Item(compteur, 3) 'colonne du DataGrid
        Next
        temp_chart.ChartData = tab_valeurs
    End Sub


Est-ce que quelqu'un a une idee ?

Merci