copier coller active cell

[Evelynetfrancois]

bonjour a tous
je voudrais copier de A à F Sheets("BASE"), suivant l'ActiveCell
et copier sur la Sheets("FICHE").les un en dessous des autre mais ça beugue.

Sub essais()
Range("A" & ActiveCell.Row & ":F" & ActiveCell.Row).Copy
Sheets("FICHE").Select
Row.Range("A65536").End(x1up).Offset(1, 0).PasteSpecial Paste:=X1PasteeValues
End Sub



pouvez vous m aider ??

merci d avance a tous

 

[Mytå]

Re : copier coller active cell

Salut le forum

Essaye comme ceci

Range("A" & ActiveCell.Row & ":F" & ActiveCell.Row).Copy
Sheets("Fiche").Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False

Mytå

 

[Evelynetfrancois]

Re : copier coller active cell

Merci Mytå , j avais trouver des choses similaires sur le forum , mais ça beugué!!!
là y a plus de problemes parfait !!!
merci beaucoup
et bonne Paques
E et F