Sub test_ok()
Dim a As Range, b As Range
Set a = Workbooks("test1").Worksheets("Feuil1").Cells(ActiveCell.Row, ActiveCell.Column)
Set b = Workbooks("test2").Worksheets("Feuil1").Range("I2:I100")
a.Resize(b.Rows.Count).Value = b.Value
End Sub
[CODE]Sub test_ok()
Sub test_ok_bis()
With Workbooks("test2").Worksheets("Feuil1").Range("I2:I100")
Workbooks("test1").Worksheets("Feuil1").Cells(ActiveCell.Row, ActiveCell.Column).Resize(.Rows.Count) = .Value
End With
End Sub