super çà marche !!

j'ai donc modifié la fonction "note" en ajoutant un test au début :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Dim tst
tst = 0
For i = 0 To UBound(X)
    If Not IsNumeric(X(i, 0)) Then
        tst = tst + 1
    End If
Next
 
If tst > 0 Then
    Note = "-"
Else
 
endif