Dupliquer des lignes sur excel

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 avez une idée de comment procéder : je vous en remercie d'avance^^