Sub tranformation()
'
' tranformation Macro
'
'Création nouveau classeur et duplication
Cells.Select
Application.CutCopyMode = False
Selection.Copy
Workbooks.Add
ActiveSheet.Paste
'suppression des colonnes et inversement C et D
Columns("A:A").Delete
Columns("B:B").Delete
Columns("C:C").Delete
Columns("E:E").Delete
Columns("D
").Cut
Columns("C:C").Insert
Range("A1").Select
'suppression des lignes avec zéro ou rien en colonne D
For i = [D65000].End(xlUp).Row To 2 Step -1
If Cells(i, 4).Value = 0 Then Cells(i, 4).EntireRow.Delete
Next i
End Sub