Sub Envois_Fichier()
Dim FichXl As String, FichPdf As String, i As Integer
Dim OutApp As Object, OutMail
Application.ScreenUpdating = False
Sheets(8).Activate
ActiveSheet.Copy
FichXl = "https://blabla.sharepoint.com/:f:/r/teams/Nom Dossier/Shared%20Documents/No%27m%20Dossier!?csf=1&web=1&e=h6zpih" & "\" & "Nom Fichier.xls" 'chemin et nom du classeur à modifier
ActiveSheet.SaveAs Filename:=FichXl, FileFormat:=18, CreateBackup:=False
ActiveWorkbook.Close True