Svop une seule instruction à corriger

bonjour jspr que vous aller bien

aider moi svp je suis coincé !!!

le but de cette macro est d'aller chercher une valeur numérique par exemple 5 et inserer 3 lignes à partir de la ligne 5

la macro est la suivante

Sub insertion()

For j = 1 To Sheets("f3").Range("E2")

's = 0

For I = 0 To 2

a = Sheets("f3").Range("V" & j)

Sheets("f4").Select

Rows("a:a").Select Selection.Insert Shift:=xlDown cette instruction ne marche pas

Next I

Next j

End Sub

Merci à vous

bonne journée et bon courage

Bonjour

Remplaces

Rows("a:a").Select Selection.Insert Shift:=xlDown 

Par

Rows(1).Insert

Merciiiii chef bonne journée