Sub Insertion()
' Insert une colonne seconde
Dim Lg As Long, cL As Long
'numéro de la colonne active
cL = ActiveCell.Column
' numéro de la dernière ligne non vide de la colonne cL
Lg = Cells(Rows.Count, cL).End(xlUp).Row
Columns(cL).Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
'remplit les cellules 1, 2 et 3 de la nouvelle colonne
'avec les valeurs Seconde, 1 et 2 pour permettre l'utilisation de Remplissage
Range(Cells(1, cL), Cells(3, cL)) = Application.Transpose(Split("Seconde 1 2"))
'Mise en oeuvre de la fonction Remplissage du menu Acceuil/Remplissage
Range(Cells(2, cL), Cells(Lg, cL)).DataSeries Rowcol:=xlColumns, Type:=xlAutoFill, Date:=xlDay
End Sub