<pre data-code-wrap="vba"><code class="lang-vba">Dim rng As Range
Dim row As Range
Set rng = Range("A1😃10")
For Each row In rng.Rows
Debug.Print row.Cells(1, 1).Value
Next row
</code></pre>
<p>Ou avec un index :</p>
<pre data-code-wrap="vba"><code class="lang-vba">For i = 1 To rng.Rows.Count
Debug.Print rng.Cells(i, 1).Value
Next i
</code></pre>
