If variablecompte > 0 Then
ReDim var_ref(variablecompte, 4)
depart_boucle_var_ref = 1
l = 1
m = 1
departdelaboucle: For k = depart_boucle_var_ref To variablecompte
For i = l To 4
For j = l To 4
If variablenonvide(i, j) <> 0 Then
var_ref(k, 1) = variablenonvide(i, j)
depart_boucle_var_ref = depart_boucle_var_ref + 1
l = l + i
m = m + j
GoTo departdelaboucle
End If
Next
Next
Next
End If
For n = 1 To variablecompte
messagetest = messagetest & n & ":" & var_ref(n, 1) & vbCrLf
Next
MsgBox messagetest