Bonjour à tous,

je pense avoir commis une petit erreur dans le code ci-dessous. Je souhaite créer une colonne (reprise à la colonne T) appliquant year() à tous les éléments de la colonne R.

Hors lors de la première exécution de ma macro, seul le nom repris en T1 et T2=year(R2) sont exécutés. Si je réexécute la macro, toutes les rangées sont effectuées mais une en trop (c'est moins gênant mais bon....)

ou est mon erreur?????

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Dim LastRow As Long
LastRow = Workbooks("DOSSIER-SPIROMETRIE.xlsm").Worksheets("DATA").Cells(Rows.Count, "A").End(xlUp).Row + 1
 
With Workbooks("DOSSIER-SPIROMETRIE.xlsm").Worksheets("DATA")
.Range("T1").Value = "Annee"
.Range("T2").FormulaR1C1 = "= year(RC18)"
Range("T2").Select
Selection.AutoFill Destination:=Range("T2:T" & LastRow), Type:=xlFillDefault
End With