votre aide pour modifier cette macro

Re : votre aide pour modifier cette macro

Bonjour

a essayer, si j'ai bien compris

derligne = Sheets("Feuil1").Range("A65536").End(xlUp).Row
Sheets("Feuil2").Rows("4:4").Select
Range(Selection, Selection.End(xlDown)).Delete Shift:=xlUp
Sheets("Feuil1").Range("A4:AU" & derligne).Copy Sheets("Feuil2").Range("A4")
derligne = Sheets("Feuil2").Range("A65536").End(xlUp).Row
For i = derligne To 4 Step -2
Rows(i + 1).Insert Shift:=xlDown
Range("A" & i & ":L" & i).Copy Range("A" & i + 1 & ":L" & i + 1)
Range("A" & i & ":L" & i).Copy Range("A" & i + 1 & ":L" & i + 1)
Range("H" & i + 1) = 2
Range("M" & i + 1) = 0
Range("N" & i + 1) = Range("L" & i)
Range("O" & i + 1) = 1
Range("P" & i + 1) = 0
Range("Q" & i + 1) = Range("L" & i)
Range("T" & i + 1) = Range("AF" & i)
Range("V" & i & ":AE" & i).Copy Range("V" & i + 1 & ":AE" & i + 1)
Range("AF" & i + 1) = Range("T" & i)
Range("AG" & i & ":AU" & i).Copy Range("AG" & i + 1 & ":AU" & i + 1)
i = i + 1
Next i
Sheets("Feuil2").Range("L:N,P:Q").NumberFormat = "#,##0.00"
Sheets("Feuil2").Columns("A:AU").EntireColumn.AutoFit

Application.ScreenUpdating = True

Re : votre aide pour modifier cette macro

Bonjour, et merci d'avance pour ton aide .
c'est super sympa de ta part.
A une prochaine fois .