Bonjour,
Je crois que c'est le
resize(0) qui pose problème.
Si tu mets une valeur en B2, ça devrait passer cette instruction, mais ça plantera sûrement un peu plus loin.
[edit]
Ah non. Au temps pour moi : ça plante toujours sur la même instruction, mais avec un autre code.
Mais, ça ne plante plus si tu définis comme ça :
Private TNoms, TDatRet
et que tu assignes comme ça :
TNoms = Feuil1.[B2].Resize(Feuil1.[B1000000].End(xlUp).Row - 1).Value
Par contre, je ne sais pas si c'est la bonne méthode...
[/edit]