Parcourir chaque ligne d'une plage dans Excel

[Clippy]

Comment parcourir chaque ligne d’une plage définie dans Excel VBA ?

[ayi]

Dim rng As Range
Dim row As Range

Set rng = Range("A1:D10")

For Each row In rng.Rows
    Debug.Print row.Cells(1, 1).Value
Next row

Ou avec un index :

For i = 1 To rng.Rows.Count
    Debug.Print rng.Cells(i, 1).Value
Next i