Option Explicit
Sub Importer_tous_les_Modules()
Dim List_Fichiers(10000, 1)
Dim Nom_Fichier As String
Dim Nb_Fichiers As Long
Dim chemin As String
Dim Modulo As String
Dim x As Long, tom
chemin = "C:\Temp\" ' à modifier
Nom_Fichier = Dir$(chemin & "*.bas")
Application.ScreenUpdating = False
Do While Nom_Fichier <> ""
List_Fichiers(Nb_Fichiers, 0) = Nom_Fichier
Nom_Fichier = Dir$
Nb_Fichiers = Nb_Fichiers + 1
Loop
Nb_Fichiers = 0
With Sheets(2)
While List_Fichiers(Nb_Fichiers, 0) <> tom
.Range("a2").Offset(Nb_Fichiers, 0).Value = _
List_Fichiers(Nb_Fichiers, 0)
Nb_Fichiers = Nb_Fichiers + 1
.Range("a:a").Columns.AutoFit
Wend
For x = 2 To .Range("a65536").End(xlUp).Row
Modulo = chemin & .Cells(x, 1).Value
ActiveWorkbook.VBProject.VBComponents.Import Modulo
Next x
End With
Sheets(2).Range("a:a").Delete
End Sub