Need - Boucle pour dupliquer 10 lignes de même valeur puis passer à +1

Question

Bonjour à tous, tout d'abord ceci est mon tout premier sujet, alors bienvenue à moi !

Je cherche donc à réaliser une boucle pour m'éviter de réaliser 38 fois (exactement 38) une opération un peu longue.
L'opération en question est d'afficher sur 10 lignes la valeur 1 (donc de B2:B11), puis pour les 10 lignes suivantes la valeur 2 (donc de B12:B21) et ainsi de suite jusqu'aux 10 lignes marquant la valeur 38.

Range("B2").Select
ActiveCell.FormulaR1C1 = "1"
Selection.AutoFill Destination:=Range("B2:B11"), Type:=xlFillDefault
Range("B2:B11").Select
Range("B11").Select

Range("B12").Select
ActiveCell.FormulaR1C1 = "2"
Selection.AutoFill Destination:=Range("B82:B91"), Type:=xlFillDefault
Range("B12:B21").Select
Range("B21").Select

Range("B22").Select
ActiveCell.FormulaR1C1 = "3"
Selection.AutoFill Destination:=Range("B22:B31"), Type:=xlFillDefault
Range("B22:B31").Select
Range("B31").Select

Edit : merci de mettre le code entre balises avec le bouton </>

Le code que voyez ci-dessus est la macro que j'ai enregistré pour les 30 premières lignes (correspondant aux 3 premières valeurs) sans boucle, avec donc l'obligation de réécrire manuellement chaque changement de valeur. Je ne me vois pas le faire pour les 35 autres suivantes...

Pouvez-vous m'aider ?

Merci d'avance

gmb · Accepted Answer

Un essai à tester. Te convient-il ? Bye ...