Salut,
Pour répondre à la 2 eme question voici une fonction pour compter le nb de cellules en rajoutant une textbox
Private Function CompteCellule(Chaine As String)
Dim C As Range
For Each C In Range(Chaine)
If C.Value <> "" Then CompteCellule = CompteCellule + 1
Next C
End Function
Textbox1=CompteCellule(RefEdit1)
A+++
PS Maudit ce refedit il me plante Excel 2003, 1 fois sur 2.. C'est peut être pour cela que Billou a rajouté la récupération automatique de fichiers..