Sub Boucle()
' bornes inf et sup de chaque boucle
Const BornesFor = "5,7 11,20 24,27 30,37 39,42 44,44"
Dim Bornes, couple, j&
Rows(1).ClearContents '---- pour le test
Application.ScreenUpdating = False
Bornes = Split(BornesFor)
For Each couple In Bornes
For j = Split(couple, ",")(0) To Split(couple, ",")(1)
'Columns(j).TextToColumns DataType:=xlFixedWidth, FieldInfo:=Array(0, 1), TrailingMinusNumbers:=True
Cells(1, j) = j '---- pour le test
Next j
Next couple
End Sub