Copie de ligne en fonction de la valeur d'une cellule

Bonjour

j'essaye de faire une macro mais en étant pas trés bon j'ai besoin de votre aide.

ma macro prend la valeur de la cellule C5 dans la feuille intro et ensuite la ligne 5 sera ajouté le nombre de fois désiré.

Mon code ne fonctionne pas voir ci dessous, pourriez-vous m'aider

If Sheets("intro").Range("C5") = 2 Then

Range("A5:AK5").Select

Selection.AutoFill Destination:=Range("A5:AK6"), Type:=xlFillDefault

Else

If Sheets("intro").Range("C5") = 3 Then

Range("A5:AK5").Select

Selection.AutoFill Destination:=Range("A5:AK7"), Type:=xlFillDefault

End If

End Sub

Bonjour,

A tester avec une petite boucle For Next suivant la valeur de C5

J'ai testé le code mais il ne fonctionne pas dans mon fichier.

J'ai annexé l' excel

Merci pour l'aide

Re,

Avec l'exemple

Bonjour M12

Merci pour la macro qui fonctionne parfaitement

J'ai modifié la macro afin que les cellules J5 à j8 fusionent :

Est ce que j'ose encore demander ton aide?

Dans la feuille intro la cellule C5 indique le nombre de position, les lignes qui on été copiées auparavent devraient être maintenant copiées à la suite par la valeur de la cellule.

Merci

Re,

A tester