Macro qui transpose

Sub Macro1()
    Range("B8:B" & Range("B65536").End(xlUp).Row).Copy
    Sheets("Feuil2").Range("C10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:= _
        False, Transpose:=True
    Application.CutCopyMode = False
End Sub

Sub Macro1()
    Range("IV8").End(xlToLeft).Select
    Range(Selection, Selection.End(xlToLeft)).Copy
    Sheets("Feuil2").Range("C10").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
Application.CutCopyMode = False
End Sub

Sub Macro1()
Dim r As Range
Set r = Sheets("Feuil1").Range("IV8").End(xlToLeft)
With Application
    .ScreenUpdating = False
    Sheets("Feuil1").Range(r, r.End(xlToLeft)).Copy
    Sheets("Feuil2").Range("C10").PasteSpecial xlPasteValues, , , True
    .CutCopyMode = False
    .ScreenUpdating = True
End With
End Sub