Incrémentation automatique

Bonjour à tous,

J'importe une somme de données dans les colonnes A, B et C (sur un nombre de lignes variables en fonction des imports).

Dans la colonne D, via une petite macro, je souhaite ajouter le mot "Planning" de D1 jusqu'à la dernière ligne.

Ma question précisément, est comment adapter le code ci-dessous pour que le mot soit incrémenté automatique jusqu'à la dernière ligne ?

Merci pour votre aide.

 Sub Macro1()
'
' Macro1 Macro
'

'

    Range("D1").Select
    ActiveCell.FormulaR1C1 = "Planning"
    Range("D1").Select
    Selection.AutoFill Destination:=Range("D1:D11320")
    Range("D1:D11320").Select

End Sub

Bonjour,

Un exemple si-dessous :

Option Explicit
Public Sub Kris()
Dim Ws As Worksheet
Dim Plage As Range
Dim derligne As Long

    Application.ScreenUpdating = False
    Set Ws = ActiveSheet
    With Ws
        derligne = .Range("A" & Rows.Count).End(xlUp).Row
        Set Plage = .Range("D1:D" & derligne)
        Plage = "planning"
    End With

    Set Ws = Nothing: Set Plage = Nothing
End Sub

Cdlt

Bonjour,

Code suivant à tester :

Sub test()
    derLig = ActiveCell.SpecialCells(xlLastCell).Row
    For Each cel In Range("D1:D" & derLig)
        cel.Value = "Planning"
    Next
End Sub

Bonsoir,

Merci à vous 2 pour vos réponses.

J'ai opté pour la solution de Jean-Eric.

Bien cordialement.