rech = Feuil2.Cells(1, 1)
Set cnn = New ADODB.Connection
cnn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & _
répertoire & "\" & fichier & ";Extended Properties='Excel 12.0;HDR=Yes'"
'Set rs = cnn.Execute("SELECT Clef1,clef2,Clef3,clef4,clef5 FROM MaBD WHERE Clef1='Asie'")
Set rs = cnn.Execute("SELECT Clef1,clef2,Clef3,clef4,clef5 FROM MaBD WHERE Clef1 in ("'" & rech & "'") ")