Voila !!

Option Explicit

Function IsTableauFull(ByRef Tableau() As Single) As Boolean
Dim index As Integer

IsTableauFull = True
index = 0
On Error Resume Next
Do
If Tableau(index) = 0 Then
If Err Then Exit Do
On Error GoTo 0
IsTableauFull = False
Exit Function
End If
index = index + 1
Loop
On Error GoTo 0
End Function


Private Sub Form_Load()
Dim test(10) As Single

test(0) = 1
test(1) = 9
test(2) = 8
test(3) = 7
test(4) = 10
test(5) = 0
test(6) = 8
test(7) = 7
test(8) = 10
test(9) = 10
test(10) = 1

MsgBox IsTableauFull(test)
End Sub