Sub test()
Dim Cn As String: Cn = GenereCSTRING(ACCESS, Base:="C:\MyRep\MyBase.accdb")
Dim Sql As String
Sql = "SELECT [Titre] FROM [Répertoire] WHERE [Titre] Like '%' & ? & '%';"
ActiveCell.CopyFromRecordset ExecuteRequete(Sql, Cn, "Titre", "Portrait")
End Sub