copier une ligne et supprimer certaines cell

[dam]

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

 

[Mytå]

Salut Dam

Simplement comme ceci:

Selection.Insert Shift:=xlDown
Selection.FillDown
Cells(Selection.Row, 1) = ''
Cells(Selection.Row, 5) = ''

Myta

 

[Mytå]

Message édité par: Mytå, à: 11/04/2006 12:05