If Not IsNumeric(Val(Right(tablo(1), 2))) Then
Noturbine = Val(Right(tablo(1), 2)) ' si Noturbine<10 et codage nom fichier Statistic_MOxx donc 2 caractères
Else
a = Right(tablo(1), 1)
Noturbine = Val(Right(tablo(1), 1)) ' si Noturbine<10 et codage nom fichier Statistic_MOx donc 1 caractère
End If