Exporter et Importer userform

Bonjour chers tous

Je voudrais transférer des formulaires d'un fichier à un autre .

Je peux sois les glisser et déposer ou exporter puis importer dans le nouveau fichier.

Ma préoccupation est que avec plusieurs formulaires (exple 30) cela est quelque peu fastidieux. Je viens vers vous pour savoir s'il ya une astuce pour les transférer en bloc. Merci.

Bonjour

Sub ExporterTousLesUserforms()
Dim LaForm
Dim dossierExport$
dossierExport = "Chemin vers le dossier contenant tous et seulement les userforms \" ' à adapter sans oublier l'antislash
  For Each LaForm In ThisWorkbook.VBProject.VBComponents
    If LaForm.Type = 3 Then
      ThisWorkbook.VBProject.VBComponents(LaForm.Name).Export dossierExport & LaForm.Name & ".frm"
    End If
  Next
End Sub

Sub importTousLesUserforms()
  Dim nomForm$
  Dim chemin$
  chemin = "Chemin vers le dossier devant recevoir tous et seulement les userforms \" ' à adapter sans oublier l'antislash

  nomForm = Dir(chemin)
  Do While LaForm <> ""
    If Right(nomForm, 4) = ".frm" Then ThisWorkbook.VBProject.VBComponents.Import chemin & nomForm
    nomForm = Dir
  Loop

End Sub

Ca devrait marcher

Merci je teste et je vous reviens.