Microsoft 365 Ajouter une étiquette de confidentialité via macro

Bonjour,
Quelqu'un aurait il la solution ? L'entreprise américaine pour laquelle je travaille nous oblige à ajouter à chaque fichier une étiquette de confidentialité (Public, Internal...).
J'ai un fichier avec 3 Macros l'une pour créer des onglets, l'autre pour les exporter et une autre pour les supprimer.
Existe t il un programme à insérer pour dire à l'ordinateur d'ajouter à chaque export l'étiquette de confidentialité "Public" ? (Microsoft Excel 365)
Mon projet pour générer plus de 100 onglets et exporter 100 onglets en indiquant l'étiquette de confidentialité à chaque export me fait perdre un temps infini.
D'avance merci pour votre aide.

Sub cree_onglets()
Application.ScreenUpdating = False
sup_onglets
Sheets("ACCUEIL").Select
Range("f2", Range("F2").End(xlToRight).End(xlDown)).Sort Key1:=Range("F2")
Range("F2").Select
Do While ActiveCell <> ""
nom = ActiveCell.Value ' Premier nom
Sheets("modele").Copy After:=Sheets(Sheets.Count)
ActiveSheet.Name = nom
Range("E3").Value = nom
'-- récup Destinataire dans la table bd_noms
destinataire = Application.VLookup(nom, Range("bd_noms"), 1, 0)
If Application.IsNA(service) Then destinataire = ""
'---
Range("E3").Value = destinataire
Sheets("ACCUEIL").Select

ActiveCell.Offset(0, 0).Select 'ligne suivante
Sheets("ACCUEIL").Select
ActiveCell.Offset(1, 0).Select 'ligne suivante dans base
Loop

Sheets("ACCUEIL").Select
Range("A1").Select
End Sub

Sub sup_onglets()
Application.DisplayAlerts = False
Sheets("ACCUEIL").Move Before:=Sheets(1)
Sheets("modEle").Move Before:=Sheets(2)
If Sheets.Count > 2 Then
Sheets(3).Select
For s = 1 To Sheets.Count - 2
ActiveSheet.Delete
Next s
End If

'Remettre le curseur en cellule A1 de l'onglet Accueil
Sheets("ACCUEIL").Select
Range("A1").Select

End Sub
Sub export_onglet()
CheminAppli = ActiveWorkbook.Path
Application.DisplayAlerts = False
For i = 3 To Sheets.Count
Sheets(i).Select
nonglet = ActiveSheet.Name
ActiveSheet.Copy
ActiveWorkbook.SaveAs Filename:=CheminAppli & "\" & nonglet
ActiveWindow.Close
Next i
End Sub