Optimiser macro avec boucle

Bonjour chers tous

Je voudrais réécrire la macro ci dessous en réalisant une boucle

Merci!!

Sub mois()
    With Sheets("Listes deroulantes")
    .Unprotect "2580"
    .Range("A1").FormulaR1C1 = "=DATE(R1C2,1,1)"
    .Range("A2").FormulaR1C1 = "=DATE(R1C2,2,1)"
    .Range("A3").FormulaR1C1 = "=DATE(R1C2,3,1)"
    .Range("A4").FormulaR1C1 = "=DATE(R1C2,4,1)"
    .Range("A5").FormulaR1C1 = "=DATE(R1C2,5,1)"
    .Range("A6").FormulaR1C1 = "=DATE(R1C2,6,1)"
    .Range("A7").FormulaR1C1 = "=DATE(R1C2,7,1)"
    .Range("A8").FormulaR1C1 = "=DATE(R1C2,8,1)"
    .Range("A9").FormulaR1C1 = "=DATE(R1C2,9,1)"
    .Range("A10").FormulaR1C1 = "=DATE(R1C2,10,1)"
    .Range("A11").FormulaR1C1 = "=DATE(R1C2,11,1)"
    .Range("A12").FormulaR1C1 = "=DATE(R1C2,12,1)"
    End With
End Sub

Bonjour

A essayer

Sub mois()
Dim i As Byte

With Sheets("Listes deroulantes")
    .Unprotect "2580"
    For i = 1 To 12
        Range("A" & i).FormulaR1C1 = "=DATE(R1C2," & i & ",1)"
    Next i
End With
End Sub

Si ok ... merci de...

Vous avez d'ailleurs pleins de sujets non cloturés..... --> https://forum.excel-pratique.com/membre/58212

Cordialement

Fil terminé sans commentaire

On est jamais mieux servi que par soi même...

Merci Dan !

Toutes mes excuses

c'est parfait !!