Dim Wk1 As Workbook, Wk2 As Workbook
Dim Plage1 As Range, Plage2 As Range
Set Wk1 = Workbooks("test"): Set Wk2 = Workbooks("Base Séquences")
Set Plage1 = Wk1.Sheets("ParaROBOT").Range("F1:AK1")
Set Plage2 = Wk2.Sheets("Feuil2").Range("G65536")
Set Plage2 = Plage2.End(xlUp).Offset(1, 0)
Plage1.SpecialCells(xlCellTypeConstants).Copy
Plage2.PasteSpecial _
Paste:=xlPasteValues, _
Operation:=xlNone, _
SkipBlanks:=True, _
Transpose:=True