Je te remercie de ta réponse, je crois que le problème à évolué, car en rajoutant process = ResultADODB, j'obtient une erreur : erreur d'execution 450 : Nombre d'arguments incorrects ou affectation de propriété incorrecte.
Si quelqu'un à une idée pour résoudre le problème je le remercie d'avance.
donc la fonction à le code suivant :
Function Process(Processus As String) As String
'Fonction permettant de récupérer le numéro de processus à partir du nom
Dim ADODB As Object
Dim QueryADODB As String
Dim ResultADODB As Object
Set ADODB = CreateObject('ADODB.Connection')
ADODB.Open 'Jobin'
QueryADODB = 'SELECT num_maison.Num_Maison FROM num_maison Where Libelle=''' + Processus + ''';'
Set ResultADODB = ADODB.Execute(QueryADODB)
Process = ResultADODB
ADODB.Close
End Function