Bonjour,  
 
Je débute en vb et j'aurais une petite question. Voilà, je travaille sur un fichier Excel de plus de 18 000 lignes et suivant le contenu des lignes, je dois dupliquer ces lignes une ou plusieurs fois.  
J'ai commencé ce petit code :  
 
Sub AjouteLignes()  
Dim x As Long, h As Long  
For x = Range("A65536" ).End(xlUp).Row To 1 Step -1  
If Rows(x).Hidden = False Then  
If Not Intersect(Range("A" & x), Selection) Is Nothing Then  
Rows(x).Insert Shift:=xlDown  
End If  
End If  
Next  
End Sub  
 
Ce code me permet d'insérer une ligne vide au -dessus de chaque ligne que j'ai sélectionné, mais je n'arrive pas à lui dire de copier à chaque fois le contenu de la ligne.  
Voilà, si jamais vous savez comment procéder une idée de comment faire : je vous en remercie d'avance^^

Hello,
 
tu peux rajouter après l'insertion de la ligne :
 
Rows(x+1).Copy Rows(x)

Merci^^ Ca marche super!!