Option Base 1
Dim Valeur As Long, DerLigne As Long, n As Integer, i As Long, j As Long, k As Long, m As Long
Dim PlannAnnee() As Variant, QuiConsult() As Variant
Private Sub CommandButton1_Click()
Valeur = CLng(TextBox1.Value)
n = Cells(1, 2).End(xlToRight).Column
DerLigne = Range("A1048576").End(xlUp).Row
PlannAnnee() = Range(Cells(1, 2), Cells(1, n - 1)).Value
QuiConsult() = Range(Cells(2, 1), Cells(DerLigne - 1, 1)).Value
For i = 1 To UBound(PlannAnnee)
MsgBox PlannAnnee(1, i)
Next i
'For j = 1 To UBound(QuiConsult)
'MsgBox QuiConsult(j, 1)
'Next j
End Sub