Bonjour à tous,

Je vous explique la situation. Dans mon code vba ci-dessous, je note un texte sur la cellule AS2 et je lui demande de recopier le texte jusqu'à la dernière ligne.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
    ActiveCell.Offset(1, 0).Select
    ActiveCell.FormulaR1C1 = "31/12/2015"
    Dim DernLigne As Long
    DernLigne = Range("C" & Rows.Count).End(xlUp).Row
    Range("AS2").AutoFill Destination:=Range("AS2:AS" & DernLigne)
MAIS, dans cet extrait, je voudrais que la recopie soit la même valeur. Lorsque je lance la macro, j'obtiens un résultat par exemple en AS3 => 31/12/2016....