Bonjour Alexane, Sylvain
Essaye peut être ce code, devrait répondre à ton problèeme, enfin j'espère...
MsgBox Range(Cells(Cells.Find("*", , xlValues, , 1, 1, 0).Row, Cells.Find("*", , xlValues, , 2, 1, 0).Column), _
Cells(Cells.Find("*", , xlValues, , 1, 2, 0).Row, Cells.Find("*", , xlValues, , 2, 2, 0).Column)).Address
bonne fin d'après midi
@+