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