Merci beaucoup, ça marche parfaitement et dans les deux sens.
Je l'ai même automatisé sur une plage donnée fixe :
Sub Lignecolonne()
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim RowIndex As Integer, Nc As Integer, G As Variant, I As Integer
xTitleId = "Xl-Downloads"
On...