Public Nom$, L%
Sub InsererColonne()
Dim DC%
Nom = InputBox("Nom de la nouvelle colonne :")
Application.ScreenUpdating = False
With Sheets("donnée")
.Select
DC = .Cells(2, Columns.Count).End(xlToLeft).Column
.Range(.Cells(1, DC), .Cells(1, DC + 1)).EntireColumn.Copy
.Range(.Cells(1, DC + 2), .Cells(1, DC + 3)).EntireColumn.Select
ActiveSheet.Paste: Application.CutCopyMode = False
.Cells(2, DC + 2) = Nom
.[A1].Select
End With
L = 0
For N = 1 To 3: InsererLigne: Next N
End Sub
Sub InsererLigne()
With Sheets("recap")
.Select: L = L + 2
While .Cells(L, 1) <> ""
L = L + 1
Wend
.Rows(L - 1 & ":" & L - 1).Copy
.Rows(L & ":" & L).Insert Shift:=xlDown
.Cells(L, 1) = Nom
End With
End Sub