copier une ligne et supprimer certaines cell

bonjour à tous,
je voudrai inserré une ligne, la recopier et supprimer certaines cellules.
voici ma macro:

Selection.Insert Shift:=xlDown
Selection.FillDown

cells(xlig,1)=''
cells(xlig,5)=''

xlig= ma ligne selectionner voila mon probleme

merci
dam