Public Tableau_Equipement(0 To 6, 0 To 10)
Sub Essai()
On Error GoTo Fin
Dim i As Integer, j As Integer
For i = 0 To 6
For j = 0 To 9
Tableau_Equipement(i, j) = 10 * i + j
Next j
Next i
[B5] = " Pas d' Erreur rencontrée"
Exit Sub
Fin:
[B5] = " Erreur rencontrée"
End Sub