'Parcourir les lignes de la plage de cellules nommée
Dim i As Long
For i = 1 To Range("NomDeLaPlageDeCellule").Rows.count
Next i
Sub a()
Dim i As Long
For i = 1 To [Plage].Rows.Count
Debug.Print [Plage].Rows(i)
Next i
End Sub
Sub b()
Dim c As Range
For Each c In [Plage]
Debug.Print c
Next c
End Sub