Bonjour,
Ton fichier contient de très nombreuses cellules qui contiennent une chaine nulle (i.e. "") !
Je suppose qu'il ne faut pas en tenir compte !
Essaies ce code dans un module standard :
Option Explicit
Sub xxx()
Dim nC&, nL&, dC&, dL&, xC&
Feuil2.Cells.ClearContents
dL = Feuil1.Cells(Rows.Count, "A").End(xlUp).Row
For nL = 1 To dL
dC = Feuil1.Cells(nL, Columns.Count).End(xlToLeft).Column
For nC = IIf(nL = 1, 1, 3) To dC
If Feuil1.Cells(nL, nC).Formula <> "" Then
xC = xC + 1
Feuil2.Cells(1, xC).Value = Feuil1.Cells(nL, nC).Value
End If
Next nC
Next nL
Feuil2.Columns.AutoFit
End Sub