Ave,
''..pour définir une plage, j'ai pris l'habitude du range a65536.end(xlup).row....(et en plus comment il faudra faire avec Excel 2007 et son million de lignes)..''
Pour toutes les versions à venir :
derL = Sheets('feuil1').Range('A' & Cells.Rows.Count).End(xlUp).Row
ou bien :
derL = [A:A].Find('*', , xlFormulas, , xlByRows, xlPrevious).Row
Avec XL 2007 ça fera :
derL = Sheets('feuil1').[B1048576].End(xlUp).Row
AV [aaa]