Boucle à exécuter 100 fois suivant le code ci-joint

Bonjour le forum

voici un code que je souhaite exécuter une fois par ligne soit 100 boucles

Sub Convertir()
'
' Convertir Macro
'
MsgBox " Sélectionnez le nombre non alligné "
'  Range("E3").Select
'  For X = 1 To 100

    Selection.TextToColumns Destination:=ActiveCell, DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
       ActiveCell.Range("A1").Select
'     ActiveCell.Offset(1, 0).Range("A1").Select
'
   ' ActiveCell.Select

  ' Next X
End Sub

la 1ère boucle démarre sur la cellule E3 et ensuite descend jusqu'a la ligne E100

ensuite, redémarrer la boucle sur la colonne I3, jusqu'a I100

j'ai essayé avec For Next, mais cela ne marche pas

Qui peut m'aider ?

Merci d'avance

Amitiés

Pierrot

bonjour,

si j'ai bien compris

Sub Convertir()
'
' Convertir Macro

    For Each col In Array("E", "I")
        Range(col & "3:" & col & "100").TextToColumns Destination:=Range(col & "3"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
    Next
End Sub

Bonjour, h2so4

ton code fonctionne très bien, mais j'aimerais bien ajouter une

fonction qui ranges mes nombres vers la droite,,mon code ne fonctionne pas

Un tout grand merci

amitiés

Pierrot

rebonjour, tout est réglé, j'ai adapté ton code à une macro qui range les nombres à droite, après chaque modification.

Un gros bisous de Perwez avec toutes mes amitiés

Pierrot