Re
Alors voici le bout de code qui correspond à ce que tu demandes
A toi de l'adapter
ActiveSheet.Cells.Copy
Sheets('Feuil2').Range('A1').PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks :=False, Transpose:=False
Range('A1').Select
Message édité par: Jacques87, à: 26/02/2006 17:03