Inserer une colonne qui se remplit automatiquement

Bonjour à tous,

J’aimerais inserer une colonne puis remplir cette colonne de 1 sur autant de ligne qu’il y a de données, par exemple si j’ai 500 lignes j’aimerais que ma colonne soit rempli de 1 sur 500 lignes, si il ya 1200 lignes avec des données alors ajouter des 1 sur 1200 lignes ect...

donc j'ai mon code pour copier mais apres...

Sheets("cjt1").Activate
    Columns("F:F").Insert Shift:=xlToRight

merci d'avance

Bonsoir,

Voir fichier et procédures (ALT F11)

Cdlt

Option Explicit
Public Sub Insérer()
Dim Ws As Worksheet
Dim Derligne As Long
Dim Plage As Range
    Application.ScreenUpdating = False
    Set Ws = Worksheets("Feuil1")
    With Ws
        .Columns("B:B").Insert Shift:=xlToRight
        Derligne = .Range("A" & Rows.Count).End(xlUp).Row
        Set Plage = .Range("B1:B" & Derligne)
        Plage.Value = 1
    End With
    Set Ws = Nothing: Set Plage = Nothing
End Sub

Parfait, merci !beaucoup !

Bonsoir, Salut Jean-Eric,

Un essai :

Sub CopierColonne()
    With Sheets("cjt1")
        .Columns("F:F").Insert Shift:=xlToRight
        .Range("F1:F" & Cells.SpecialCells(xlLastCell).Row) = 1
    End With
End Sub