Sub Recopie_V()
Dim ws As Worksheet: Set ws = Sheets("Menu")
Application.ScreenUpdating = False
Sheets(ws.[B2].Text).Rows("2:2").Insert Shift:=xlDown
Sheets("Tableau général").Rows("2:2").Insert Shift:=xlDown
ws.[B1]=ws.[B1]+1
ws.Range("B1,B3:B6").Copy
Sheets(ws.[B2].Text).Cells(2, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Sheets("Tableau général").Cells(2, 1).PasteSpecial Paste:=xlPasteAll, Transpose:=True
Application.CutCopyMode = False
ws.Range("B1,B3:B6") = Empty
ws.Activate
End Sub