Salut Marc, le forum
on ne sé pas combien de données que tu veux récupérer
je te joins un code qui permet de récupérer 64 cellules et de les stockées sur une feuille ( merci à un des forummeurs navré je sé plus qui !!
en fait je récupére de : fiche de paye pour les envoyées vers récap
en espérant que ça t'aide
JC
Sub MultiCellCopy()
Dim DataSource(64) As Variant
Dim LastLine As Long
Dim Item As Variant
Dim i As Byte, y As Byte
LastLine = Sheets('Récap').Range('A65536').End(xlUp).Row + 1
For Each Item In Array('i9', 'e22', 'f22', 'e24', 'e25', 'c16', 'g4', 'g33', 'f35', 'f37', _
'f39', 'f47', 'f49', 'f53', 'f55', 'f57', 'f59', 'f61', 'j35', 'j37', _
'j39', 'j41', 'j43', 'j45', 'j47', 'j49', 'j51', 'j53', 'j55', 'j57', _
'j59', 'k63', 'i65', 'k65', 'g69', 'f71', 'f73', 'e75', 'f75', 'g77', _
'i65', 'i66', 'i67', 'i68', 'k66', 'k67', 'k68', 'e80', 'f80', 'i80', 'k80', _
'e23', 'b27', 'g27', 'b28', 'g28', 'b29', 'g29', 'b30', 'g30', 'b31', 'g31', 'c17', 'c15')
DataSource(i) = Sheets('fiche_paye').Range(Item)
i = i + 1
Next
For y = 1 To 64
With Sheets('Récap')
.Cells(LastLine, y) = DataSource(y - 1)
End With
Next
End Sub