re babou et andré
Bon voila une solution plus rien a ecrire mes pas les formules
Option Explicit
Sub ajout_delete()
Dim feuille1 As Double
feuille1 = Sheets("Fichier_dep 1er cas de figure").Range("a65535").End(xlUp).Row
Range("A2:E65535").ClearContents
Sheets("Fichier_dep 1er cas de figure").Select
Range("A1:C" & feuille1).Select
Selection.Copy
Sheets("Fichier_res").Select
Range("A1").Select
ActiveSheet.Paste
Application.CutCopyMode = False
'Copier la formule
Range("D2").Select
ActiveCell.FormulaR1C1 = "=RC[-3]"
Selection.AutoFill Destination:=Range("D2
" & feuille1), Type:=xlFillDefault
Range("E2").Select
ActiveCell.FormulaR1C1 = "=RC[-2]"
Selection.AutoFill Destination:=Range("E2:E" & feuille1), Type:=xlFillDefault
End Sub
a adopter sur ton fichier
Mytå