Sub ENTREES_SORTIES()
'
' ENTREES_SORTIES Macro
'
Dim r As Range
With ActiveSheet
Set r = .Range("A9:A10")
.Range("B15").Resize(r.Rows.Count, r.Columns.Count).Value = r.Value
Set r = .Range("D9:D10")
.Range("C15").Resize(r.Rows.Count, r.Columns.Count).Value = r.Value
Set r = .Range("I9:I10")
.Range("E15").Resize(r.Rows.Count, r.Columns.Count).Value = r.Value
.Rows("1:14").Delete
.Rows("3:3").Delete
.Columns("F:L").Delete
.Columns("G:H").Delete
.Columns("H:H").Delete
.Columns("A:H").AutoFit
End With
End Sub