Import ADO : déterminer nombre de lignes dynamiquement

Bonjour

M’entraînant en ce moment sur la méthode ADO pour importer une base de données depuis un classeur fermé, je ne parviens pas à trouver une méthode pour déterminer dynamiquement le nombre de lignes à importer. Le code ci-dessous fonctionne bien mais je voudrais remplacer 5000 par le nombre réel de lignes de la base de données car qui me dit à l'avenir que je ne vais pas dépasser 5000 lignes

(...)
Set cnn = New ADODB.Connection
cnn.Open "Provider=MSDASQL.1;DSN=Excel Files;DBQ=" & repertoire & Fichier & ";HDR=No';"

Set rs = cnn.Execute("SELECT Numer, DatDeb, Type_intervention, Categ_intervention, Entreprise, Site, Obs FROM [27_PLANNIF$A1:G5000]")
Sheets(27).[A2].CopyFromRecordset rs
rs.Close
Set rs = Nothing

cnn.Close
Set cnn = Nothing

Merci d'avance

Bonjour boby63

Pourquoi ne pas supprimer la plage tout simplement

Set rs = cnn.Execute("SELECT Numer, DatDeb, Type_intervention, Categ_intervention, Entreprise, Site, Obs FROM [27_PLANNIF$]")

Nota : il faut que le nom de la feuille se termine par un $

@+

Quel neuneu je fais ...

Je croyais l'avoir testé comme ça mais un bug (du certainement à une faute de frappe ou une étourderie quelconque) m'a fait partir dans des directions beaucoup plus farfelues.

Merci beaucoup Bruno