Re
j ai essayer d'adapter ta formule a mon classeur mais je n y arrive pas, je t explique:
Option Explicit
Sub Export()
Dim derlgn As Integer
Dim Ws As Worksheet
Dim RSource As Range, RCible As Range, maplage As Range
Application.ScreenUpdating = False
derlgn = Range('A65536').End(xlUp).Row
Set maplage = Sheets('saisie').Range(Cells(1, 1), Cells(derlgn, 9))
Set RSource = maplage
Worksheets.Add
With ActiveSheet
Set RCible = .Range('A1')
RSource.Copy Destination:=RCible
End With
Sheets('saisie').Select
MsgBox 'Operation Terminée'
Application.ScreenUpdating = True
End Sub
je n ai changer que le nom de la feuille, en l'occurence dans mon classeur ma feuille s appelle 'saisie' et c'est la feuil3!
Peut etre qu il y a d'autre info a changer non?