Transposition VBA

Sub Macro1()
Dim OS As Worksheet 'définit la variable OS (Onglet Source)
Dim OD As Worksheet 'définit la variable OD (Onglet Destination)
Dim TV As Variant 'définit la variable TV (Tableau des Valeurs)
Dim I As Integer 'définit la variable I (Incrément)
Dim J As Integer 'définit la variable J (incrément)
Dim LI As Integer 'définit la variable LI (LIgne)
Dim COL As Byte 'définit la variable COL (COLonne)

Set OS = Worksheets(1) 'définit l'onglet source OS (à adapter)
Set OD = Worksheets(2) 'définit l'onglet destination OD (à adapter)
OD.Cells.ClearContents 'efface d'enventuelles anciennes données dans l'onglet destination
OD.Range("A1").Value = "Site" 'étiquette en A1
OD.Range("B1").Value = "Indicateur" 'étiquette en B1
OD.Range("C1").Value = "Type Yes/No" 'étiquette en C1
OD.Range("D1").Value = "Type Number" 'étiquette en D1
OD.Range("E1").Value = "Type Text" 'étiquette en E1
TV = OS.Range("A1").CurrentRegion 'définit le tableau des valeurs TV
For I = 3 To UBound(TV, 1) 'boucle 1 : sur toutes les lignes I du tableau des valeurs TV (en partant de la troisième)
    For J = 1 To UBound(TV, 2) - 1 'boucle 2 : sur toutes les colonnes J du tableau des valeurs TV
        LI = OD.Range("A" & Application.Rows.Count).End(xlUp).Row + 1 'définit la ligne LI
        OD.Cells(LI, 1).Value = TV(I, 1) 'renvoie le nom du site dans la cellule ligne I, colonne 1 (=A) de OD
        OD.Cells(LI, 2).Value = TV(1, J + 1) 'renvoie le nom de l'indicateur dans la cellule ligne LI colonne 2 de OD
        Select Case TV(2, J + 1) 'agit en fonction de la valeur de la donnée ligne 2 colonne J+1 de TV
            Case "Type Yes/No" 'cas
                COL = 3 'définit la colonne COL
            Case "Type Number" 'cas
                COL = 4 'définit la colonne COL
            Case "Type Text" 'cas
                COL = 5 'définit la colonne COL
        End Select 'fin de l'action en fonction de donnée ligne 2 colonne J+1 de TV
        'renvoie dans la cellule ligne LI colonne COL de OD, la donnée ligne I colonne J+1 de TV
        OD.Cells(LI, COL).Value = TV(I, J + 1)
    Next J 'prochaine colonne de la boucle 2
Next I 'prochaine ligne de la boucle 1
End Sub

OD.Copy
ActiveWorkbook.SaveAs Filename:=ThisWorkbook.Path & "\Destination.csv", FileFormat:=xlCSV, CreateBackup:=False