Macro pour transposer ligne en colonne

Option Explicit
Sub TransposerDates()
Dim n°L As Long
Dim n°C As Integer
Dim ctr As Long

'Première ligne de données du tableau
n°L = 2
'Explorer toutes les lignes du tableau
Do While Cells(n°L, 1).Value > ""
  'Chercher la dernière colonne de date sur la ligne
  n°C = Cells(n°L, 2).End(xlToRight).Column
  'mettre à 0 le comptr de dates déplacées
  ctr = 0
  'Si il faut déplacer la date...
  Do While n°C > 2
    'Insérer une ligne
    Rows(n°L + 1).Insert
    'Copier le nom du client
    Cells(n°L + 1, 1).Value = Cells(n°L, 1).Value
    'Déplacer la date
    Cells(n°L, n°C).Cut Cells(n°L + 1, 2)
    'Compter le nombre de déplacements
    ctr = ctr + 1
    'Colonne précédente
    n°C = n°C - 1
  Loop
  'ligne suivante
  n°L = n°L + ctr + 1
Loop

End Sub