insérer lignes selon cellule

[Simons]

Salut les gens,

Voila j'ai un classeur qui m'arrive en début de mois. Je veux à l'ouverture de celui ci lui affecter une macro qui :
- Fait un copier coller de la cellule A1 à la colonne D et jusqu'à la dernière ligne vide vers la feuille 2 du classeur.
- Insérer X lignes entre chaque ligne du tableau initial (en sachant que X correspond à un chiffre situé dans la deuxième colonne du tableau initial).
Merci d'avance pour votre aide.

 

[lecknaat]

Salut,

alors voila ce que je te propose : ( ya peut etre plus simple...)

Sheet (Feuil1).Select

der_ligne = 1

For i = 1 To 1000
If Not (Range('A' & i).Value = '') Then
der_ligne = i
End If
Next j

Range('A1😀' & der_lign & ''').Select
Application.CutCopyMode = False
Selection.Copy

Sheets('Feuil2').Select
Range('A1').Select
ActiveSheet.Paste

Voila pour copier coller tes donnés

 

[Simons]

Ok merci lecknaat mais ca ne résoud malheuresement pas mon problème pour insérer mes lignes....