Bonjour,

Public Sub listSubFuncVBA(PathBase As String)
Dim oAccess As New Access.Application
Dim oDb As DAO.Database
Dim strName As String, strLine As String
Dim I As Integer, J As Integer

...