Sub DuBienFaitDeLaMacroSurLaFormule()
Dim i&, f As Worksheet: Set f = Sheets("Formulaire")
Application.ScreenUpdating = False
dl = f.Cells(Rows.Count, "B").End(xlUp).Row
For i = 1 To dl
Sheets("TEST").Cells(i, 1) = Application.WorksheetFunction.TextJoin(";", True, f.Range("B4").Offset(i).Resize(, 59))
Next i
End Sub