Bonjour et merci pour vos explications!
j'ai le même problème cependant, je veux tirer ma formule jusqu'à une année précise que je nomme "derannee", qui correspond au maximum des année présentes en colonne W dans le feuille ART39.
Ca donne ça:
Sub treso()
Dim derannee As Long
Dim i As Integer
derannee = Application.WorksheetFunction.Max(Worksheets("ART39").Range("w1:w" & Worksheets("ART39").Range("w65530").End(xlUp).Row)) 'détermine la derniere année de départ à la retraite
Worksheets("ART39").Range("w227").Value = derannee
et dans la feuille "treso PU", je veux tirer la formule de A à F jusqu'à "derannee" ce qui donne:
Worksheets("tréso PU").Range("A26:F26").Select
For i = Range("effet").Value + 1 To derannee
Selection.AutoFill Destination:=Range("A26:F37"), Type:=xlFillDefault
Range("A26:F37").Select
Next i
End Sub
Mais ca ne marche pas...