Bonjour,

il existe dans l'objet Range, une propriété bien sympathique qui s'appelle "next"
et qui permet de passer à la case suivante, vers la droite...
je cherche la même chose, mais vers le bas.

la seule chose à laquelle je pense, c'est
Code : Sélectionner tout - Visualiser dans une fenêtre à part
set range_down = Cells(maRange.row+1, maRange.column)
personne n'a plus "élégant" ?

bon, quand je l'écris, je me dis que c'est déjà pas mal ...

Mais quand on a des cellules fusionnées, il faut faire :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
If maRange.MergeCells Then
    Set range_down = maRange.MergeArea.End(xlDown)
Else
    Set range_down = Cells(maRange.Row + 1, maRange.Column)
End
et comme on le voit, c'est tout de suite moins sympa. voilà pourquoi je cherchais une propriété du genre "maRange.down"