[Excel.VBA]Transformer les colonnes en lignes

Sub transposer_sur1ligne() 
Dim lig As Integer, cptr As Byte, source As String, cible As String 

Application.ScreenUpdating = False 
With Sheets("table") 
    lig = .Range("A1000").End(xlUp).Row + 1 
    .Cells(lig, 1) = Format(Sheets("saisie").Range("D1"), "mm/dd/yy") 
    .Cells(lig, 2) = Sheets("saisie").Range("D2") 
End With 

For cptr = 1 To 9 
With Sheets("saisie") 
    source = Choose(cptr, "B5:B8", "B10:B15", "B17", "C5:C8", "C10:C15", "C17", "D5:D8", "D10:D15", "D17") 
End With 

With Sheets("table") 
  cible = Choose(cptr, "C" & lig & ":F" & lig, "G" & lig & ":L" & lig, "M" & lig, _ 
                                         "N" & lig & ":Q" & lig, "R" & lig & ":W" & lig, "X" & lig, _ 
                                         "Y" & lig & ":AB" & lig, "AC" & lig & ":AH" & lig, "AI" & lig) 
                                         
.Range(cible) = Evaluate("transpose(saisie!" & source & ")") 
End With 
Next 
With Sheets("saisie") 
    .Range("D1:D2").ClearContents 
    .Range("nettoye").ClearContents 
End With 
End Sub