Erreur sur macro excel : connection d.doc.lives.net suite à transfert fichier

Option Explicit
Dim valeur As Byte
Dim dat As Date
Dim i As Integer, j As Integer
Public Fichier As Workbook


Dim budgetchoix As String
Dim fournisseur As String
    Dim budgetGraph     As Chart
    Dim globalGraph         As Chart
    Dim rPlageAcceuil   As Range
    Dim rPlageSource    As Range
Option Compare Text

Private Sub UserForm_Initialize() ''ok
'Remise à Zéro QD FERMETURE  ET REINITIALISATION DU USERFORM
'Variable pour un Objet Worksheet en PUBLIC pour tous les Controls de cet UserForm'à l'initialisation de l'userform
Set Fichier = ThisWorkbook
' TEST VENDREDI
' Affecter une valeur à une variable (= fixer la valeur de la variable)
   'Attention ce nom doit correspondre au nom de votre ONGLET
    Me.ComboBox1.Clear
        For i = 1 To Sheets.Count - 3
    'on exclue les feuilles ENTREE,SITUATION GLOBALE et FOURNISSEURS   dans laquelle le userform general fonctionne
    Me.ComboBox1.AddItem Sheets(i).Name
    Next
    i = 0
    ComboBox2.List = Sheets("FOURNISSEURS").Range("A:A").Value
        
End Sub
Private Sub USerForm_Activate() ''OK
Application.ScreenUpdating = False
' POUR POSITIONNEMENT PLEINE PAGE USERFORM
With Me
    .StartUpPosition = 3
    .Width = 950
    .Height = Application.Height
    .Left = 0
    .Top = 0
End With
Application.ScreenUpdating = True
End Sub
Private Sub UserForm_Layout()
    Application.ScreenUpdating = False
    'Définit la position horizontale de l'USF
    Me.Left = 5
    'Définit la position verticale de l'USF
    Me.Top = 5
    Application.ScreenUpdating = True
End Sub
Private Sub CommandButton8_Click() ''OK
' pour fermer le formulaire et le sauvegarder
 Unload Me 'Unload => Permet de fermer l'Userform et de l'effacer de la mémoire,
'les valeurs de ses contrôles sont à alors perdues.
 ' Me => Référence à l'objet en cours
ThisWorkbook.Save
Application.Quit
 End Sub
Private Sub CommandButton10_Click() ''ok
Application.ScreenUpdating = False


'Entrées des données
budgetchoix = ComboBox1.Value
fournisseur = ComboBox2.Value

Worksheets(budgetchoix).Select

i = ActiveSheet.Range("A65536").End(xlUp).Row
j = i + 1

Cells(j, 1) = Me.TextBox6.Value
Cells(j, 2) = fournisseur
Cells(j, 3) = Me.TextBox8.Value
Cells(j, 4) = Me.TextBox5.Value
Cells(j, 5) = Me.TextBox2.Value




Fichier.Save

Me.TextBox2.Text = ""
Me.TextBox5.Text = ""
Me.TextBox8.Text = ""
Me.TextBox6.Text = ""
Me.ComboBox1.Value = ""
Me.ComboBox2.Value = ""

'GRAPHES

'GRAPHE_BUDGET
  
    With Sheets(budgetchoix)
        ' Plage devant accueuillir le graphique
        Set rPlageAcceuil = .Range("I1:L16").Offset(0, 1)
        ' Création du graphique, ne pas oublier le .Chart final
        ' L'objet graphique se place sur la plage et à sa taille
        Set budgetGraph = .ChartObjects.Add(rPlageAcceuil.Left, rPlageAcceuil.Top, rPlageAcceuil.Width, rPlageAcceuil.Height).Chart
        ' Source du graphique
        Set rPlageSource = .Range("G:H")
    End With
    With budgetGraph
    ' Type xlPieExploded=69
        .ChartType = 5
        '= 5 xlPie
        ' Source du graphique
        .SetSourceData Source:=rPlageSource, PlotBy:=xlRows
        ' Affichage du titre
        .HasTitle = True
        ' Intitulé
        .ChartTitle.Characters.Text = budgetchoix
        ' Légende en position haute
        .Legend.Position = xlLegendPositionTop
        .FullSeriesCollection(1).Points(2).ApplyDataLabels
        .FullSeriesCollection(1).Points(1).ApplyDataLabels
     End With

' SAUVEGARDE DU GRAPHIQUE PH BASSIN CHOISI ET AFFICHAGE DANS FRAME 09 PH
budgetGraph.Export ThisWorkbook.Path & "\graphique.gif"
Me.Frame9.Picture = LoadPicture(ThisWorkbook.Path & "\graphique.gif")
'Worksheets(budgetchoix).ChartObjects.Delete


'GRAPHE SITUATION GLOBALE
 Worksheets("SITUATION GLOBALE").Select
    
        With Sheets("SITUATION GLOBALE")
        ' Plage devant accueuillir le graphique
        Set rPlageAcceuil = .Range("A6:L24")
        ' Création du graphique, ne pas oublier le .Chart final
        ' L'objet graphique se place sur la plage et à sa taille
        Set globalGraph = .ChartObjects.Add(rPlageAcceuil.Left, rPlageAcceuil.Top, rPlageAcceuil.Width, rPlageAcceuil.Height).Chart
        ' Source du graphique
        Set rPlageSource = .Range("A:L")
    End With
    With globalGraph
           
        .ChartType = 51
        'xlColumnClustered
        ' Source du graphique
        .SetSourceData Source:=rPlageSource, PlotBy:=xlRows
        ' Affichage du titre
        .HasTitle = True
        ' Intitulé
        .ChartTitle.Characters.Text = "Situation Globale"
        ' Légende en position haute
        .HasLegend = False

      
     End With
    

' SAUVEGARDE DU GRAPHIQUE PH BASSIN CHOISI ET AFFICHAGE DANS FRAME 09 PH
globalGraph.Export ThisWorkbook.Path & "\graphique.gif"
Me.Frame10.Picture = LoadPicture(ThisWorkbook.Path & "\graphique.gif")

Worksheets("SITUATION GLOBALE").ChartObjects.Delete
'entree nouveau fournisseur
If OptionButton1.Value = True Then
Worksheets("FOURNISSEURS").Select
i = ActiveSheet.Range("A65536").End(xlUp).Row
j = i + 1
Cells(j, 1) = fournisseur
ComboBox2.List = Sheets("FOURNISSEURS").Range("A:A").Value

End If

Application.ScreenUpdating = True

End Sub