Macro Excel

Bonjour,

Je voudrais une macro excel qui me permette de pouvoir insérer x lignes en dessous de chaque valeur différente (ex dans mon fichier A05001

A05002

A05003

A05004)

et qui me copie x fois la valeur

ex de résultat final si x = 2

A05001

A05001

A05002

A05002

Merci de votre aide

Bonjour a tester

Bonjour,

Merci ça fonctionne !

Mais comment je récupère la macro ?

Car je vais en avoir besoin pour d'autres valeurs.

Merci

Bonjour

Alt f11.

Cdt

Bonjour,

voici mon écran quand je fais alt F11 (en PJ)

Sub Macro1()
'
' Macro1 Macro
'

'
    Rows("2:10000").Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove

    ActiveWindow.SmallScroll Down:=-15
    Range("A2").Select
    ActiveCell.FormulaR1C1 = "=R[-1]C"
    Range("A1:A2").Select
    Selection.AutoFill Destination:=Range("A1:A10001"), Type:=xlFillDefault
    Range("A1:A10001").Select
End Sub

Bonjour voici la macro qui peut etre ameliore.

cdt