Microsoft 365 Peut-on faire un double enregistrement : sur OneDrive et en local (sur une clé USB par exemple) ?

Sub Macro()
' Enregistrement sur clé USB
    ChDir "N:\"
    ActiveWorkbook.SaveAs Filename:="N:\Classeur4.xlsm", FileFormat:= _
        xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
' Enregistrement sur OneDrive
    ChDir "C:\Users\PC_PAPA\OneDrive"
    ActiveWorkbook.SaveAs Filename:="C:\Users\PC_PAPA\OneDrive\Classeur4.xlsm", _
        FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End Sub

Sub Macro()
' Enregistrement sur clé USB
Lettre_Cle_USB = "D:\" ' A adapter à la lettre de ta clé uSB!!!!

ActiveWorkbook.SaveAs Filename:=Lettre_Cle_USB & "Classeur4.xlsm", FileFormat:= _
    xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False

' Enregistrement sur OneDrive
ActiveWorkbook.SaveAs Filename:=Environ("OneDrive") & "\Classeur4.xlsm", _
    FileFormat:=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
     
End Sub