Macro ajout de lignes dans tableau

Bonjour le forum,

J'ai trouvé des posts sur le même sujet mais je n'arrive pas à adapter à mon problème.

En fait, j'aimerais pouvoir, par un bouton (sur Feuil2) exécutant une macro ajouter x lignes à mon tableau se trouvant en Feuil4.

x étant une valeur se trouvant dans la cellule R1 de ma Feuil4.

J'ai utilisé ce code mais il ne fonctionne pas.

Dim nblg As Byte
nblg = Feuil4.Range("R1")
Feuil4.Rows("3").Resize(nblg, 1).EntireRow.Insert Shift:=xlDown

Je ne suis pas très doué en VBA...

Je suis sous excel 2013. Alors peut être qu'il existe une fonction en utilisant les tableaux.. je ne sais pas.

Quelqu'un aurait-il une solution???

Je vous remercie par avance

Bonjour,

bah... A priori ce code fonctionne sous 2010.... peut être une spécificité 2013 ??

bon après midi

@+

Effectivement Pierrot93, ce code fonctionne. J'avais mal interpréter le message d'erreur qui m'était renvoyé.

Je te remercie pour l'info

Lorsque dans R1 j'ai la valeur 2000. j'ai le code suivant:

Erreur d'exécution '6'
Dépassement de capacité

Par contre lorsque je mets une valeur plus petite Ex: 50. La macro s'exécute bien.

Le problème donc maintenant étant que je souhaite rajouter un nombre conséquent de lignes (env 2000)

Quelqu'un aurait-il une idée???

Re,

modifie le type de donnée alors :

Dim nblg As Long

Super!!! Merci beaucoup Pierrot93 pour ton aide