Function TransfertDonnéesTableauVersPressePapier() 'appelée par enregistrer

 Application.CutCopyMode = False 'RAZ du Presse-Papiers

 Set MyData = New DataObject
 Selection.Copy 'SURPRENANT mais seulement pour TEST, en place le 05/oct/2025
                'Semble supprimer l'Erreur d'exécution '-2147221040 (800401d0)'
                'DataObject:GetFromClipboard Echec de OpenClipboard
 ActiveSheet.ListObjects("TabInscriptions").DataBodyRange.Select
 Selection.Copy 'SURPRENANT cette répétition
 MyData.GetFromClipboard  
 On Error Resume Next
End Function