Sheets("feuil1").Select Rows("8:8").Copy Sheets("feuil2").Range("A6").PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _