Sub n_valeur_2()
Dim Valeur&
Dim tableau As Variant
'Avec la feuille Volume
With Sheets("Volume")
'Récupération des valeurs de la plage dans le tableau
tableau = .Range(.Cells(3, 14), .Cells(3, 14).End(4))
'Fin d'utilisation de la feuille
End With
'Pour chaque ligne du tableau
For i = 1 To UBound(tableau, 1)
'Récupération de la petite.valeur i eme
Valeur = Application.WorksheetFunction.Small(tableau, i)
Debug.Print i & vbTab & Valeur 'vérification dans la fenêtre Exécution
'Prochaine ligne du tableau
Next i
End Sub