Bonjour Sebrougier, Pascal76 et le forum,
Si j'ai bien compris le transfert de plage que tu souhaites réaliser, cela donne une macro de ce style :
Sub Transfert()
Dim l As Integer, k As Integer
Dim plage As Range
Sheets('calcul').UsedRange.ClearContents
l = Sheets('detail').Range('A65536').End(xlUp).Row
k = Sheets('detail').Range('J1').End(xlDown).Row
Set plage = Sheets('detail').Range('A' & k, 'J' & l)
plage.Copy Sheets('calcul').Range('A1')
End Sub
Cordialement
CBernardT
Message édité par: CBernardT, à: 11/04/2005 12:20