Transposer une colonne

Option Explicit

Sub test()
Dim cr1$, cr2$, derlig&, i&, cr3
    With Feuil1
        derlig = .Cells(Rows.Count, 1).End(xlUp).Row
        cr1 = "<path id="""
        cr2 = "title="""

        For i = 5 To derlig
            cr3 = Format("0" & (i - 5) + 2, "dd")
            .Cells(i, 4) = cr1 & cr3 & """ " & cr2 & .Cells(i, 1)
        Next i
    End With
End Sub

Sub test()
    Dim cr1$, cr2$, derlig&, i&, x&, cr3
    With Feuil1
        derlig = .Cells(Rows.Count, 1).End(xlUp).Row
        cr1 = "<path id="""
        cr2 = "title="""
        x = 0
        For i = 5 To derlig
          x = x + 1
            cr3 = Format("0" & x + 1, "dd")
            .Cells(i, 4) = cr1 & cr3 & """ " & cr2 & .Cells(i, 1)
        Next i
    End With
End Sub

Sub test()
Dim cr1$, cr2$, derlig&, i&, x&, cr3
    With Feuil1
        derlig = .Cells(Rows.Count, 1).End(xlUp).Row
        cr1 = "<path id="""
        cr2 = "title="""
        x = 0
        For i = 5 To derlig
            x = x + 1
            cr3 = Format("0" & x + 1, "dd")
            .Cells(i, 4) = cr1 & cr3 & """ " & cr2 & .Cells(i, 1)
            If x > 30 Then
                cr3 = x
                .Cells(i, 4) = cr1 & cr3 & """ " & cr2 & .Cells(i, 1)
            End If
        Next i
    End With
End Sub

Sub test()
Dim cr1$, cr2$, derlig&, i&, x&, cr3

    With Feuil1
        derlig = .Cells(Rows.Count, 1).End(xlUp).Row
        cr1 = "<path id="""
        cr2 = "title="""
        x = 0
        For i = 5 To derlig
            x = x + 1
            cr3 = Format("0" & x, "00")
            .Cells(i, 4) = cr1 & cr3 & """ " & cr2 & .Cells(i, 1)
        Next i
    End With
End Sub