Bonjour
Essaie ce code :
Dim i As Integer, fo As Worksheet, fd As Worksheet
Sub Exporter()
Set fo = Sheets("Disabled Lives Calculations")
Set fd = Sheets("mat")
fo.Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row).Copy
For i = 1 To 113
fd.Range("A" & i).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
Next i
End Sub
Te convient-il ?
Bye !