Private Sub CommandButton1_Click()
Dim num As Integer
Dim i As Integer
Dim parcours As Integer
Range('B5').Select
num = ActiveCell.Value
Sheets(Array(Sheets(11).Name)).Select
Sheets('Test').Activate
For i = 1 To 987
Range('C' & i).Select
parcours = ActiveCell.Value
Next
MsgBox (i)
End Sub