Sub Test()
Dim Tableau()
ReDim Tableau(2, Range("A65536").End(xlUp).Row - 2)
Dim I As Integer, J As Integer
J = 0
I = 2
While Cells(I, 1) <> ""
If Rows(I & ":" & I).EntireRow.Hidden = False Then
[COLOR=blue] Tableau(0, J) = I[/COLOR]
[COLOR=blue] Tableau(1, J) = Cells(I, 1)[/COLOR]
[COLOR=blue] Tableau(2, J) = Cells(I, 2)[/COLOR]
J = J + 1
Else
ReDim Preserve Tableau(2, UBound(Tableau, 2) - 1)
End If
I = I + 1
Wend
For I = 0 To UBound(Tableau, 2)
MsgBox (Tableau(0, I) & " " & Tableau(1, I) & " " & Tableau(2, I))
Next I
End Sub