Sub Macro1()
Dim T, dc%
'Application.Run "BLPLinkReset" '????
With Sheets("EUR")
'si la dernière colonne est non vide on quitte...ici v2000 = 256 colonnes
'If .Cells(1, 256) <> "" Then Exit Sub
T = .Range("J1:J" & .Range("J65000").End(xlUp).Row).Value
dc = .Range("IV1").End(xlToLeft).Column + 1
.Range(.Cells(1, dc), .Cells(UBound(T), dc)) = T
End With
End Sub