Sens de traitement For Each

Bonjour,
Dans une plage couverte par l'instruction For Each le sens de traitement de chaque cellules est A1, B1, C1 A2 B2 C2 etc...
Est il possible de traiter les cellules par colonnes: A1 A2 A3 B1 B2 B3 etc...
Cordialement, Christian.

bonjour chriscamp le forum boucle sur les colonnes de la premiere a la derniere non vide jusqu a la derniere ligne non vide a adapter
option explicit

Code:

---

1 2 3 4 5 6 7 8

Sub Rec() Dim i As Integer, j As Integer For j = 1 To Range("iv1").End(xlToLeft).Column For i = 1 To Cells.Find("*", , , , , xlPrevious).Row Cells(i, j).Select MsgBox "aa" Next i: Next j End Sub

---