Problème fonction application.transpose sur Access

feuille.Range("A1").Resize(UBound(base_fichiers, 2), UBound(base_fichiers, 1)) = Application.Transpose(base_fichiers)

Private Sub Commande183_Click()

Dim base_fichiers()

Dim oDb As DAO.Database
Dim oRst As DAO.Recordset
Dim Rep_Motam As String


Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset("R_Repertoire")

Rep_Motam = oRst![Rep_Motam]

fichier = Dir(Rep_Motam)

i = 1
While fichier <> ""
ReDim Preserve base_fichiers(5, i)

If Right(fichier, 9) = "MOTAM.csv" Then

base_fichiers(1, i) = fichier
ma_date = DateSerial(Left(fichier, 4), Mid(fichier, 5, 2), Mid(fichier, 7, 2))

base_fichiers(2, i) = Format(ma_date, "mm/dd/yyyy")
base_fichiers(3, i) = Format(ma_date, "ww", vbMonday, vbFirstFullWeek)

base_fichiers(5, i) = Rep_Motam & fichier

'corrige 1ere semaine - de 4 jours
correction = False
If Month(ma_date) = 1 And Format(ma_date, "ww", vbMonday, vbFirstFourDays) > 50 Then
 mon_annee_corrigee = Year(ma_date) - 1
 correction = True
End If

'corrige 1ere semaine + de 4 jours
If Month(ma_date) = 12 And Format(ma_date, "ww", vbMonday, vbFirstFourDays) < 5 Then
 mon_annee_corrigee = Year(ma_date) + 1
 correction = True
End If

If correction = False Then mon_annee_corrigee = Year(ma_date)

base_fichiers(4, i) = mon_annee_corrigee

i = i + 1
End If

oRst.Close: Set oRst = Nothing
oDb.Close: Set oDb = Nothing

fichier = Dir

Wend

Set oDb = CurrentDb
Set oRst = oDb.TableDefs("Liste_Fichiers_Enova").OpenRecordset

While Not oRst.EOF
  oRst.Delete
  oRst.MoveNext


feuille.Range("A1").Resize(UBound(base_fichiers, 2), UBound(base_fichiers, 1)) = Application.Transpose(base_fichiers)

Wend

End Sub