XL 2010 Valeur la plus proche dans une matrice

    Dim i As Byte, ppmGetBoucle(1 To 4), dif(1 To 4), mini#, pos as byte

    'On dresse 2 arrays
    For i = 1 To 4
        'On dresse l'array contenant les nombres qui seront comparñes avec la valeur de référence (ne pas tenir compte de la formule ; elle marche)
        ppmGetBoucle(i) = Round((gouttes + i) * Evaluate("Remember_masse1goutte") * 10 ^ 3 / ([ppm_sol4].Offset(9, 1) + (gouttes + i) / [ppm_sol4].Offset(1, 1)), 2)
        '[ppm_sol4].Offset(10, 1) est la valeur de référence
        'On soustrait toutes les valeurs de l'array de la valeur de référence et l'on confectionne un nouvel array
        dif(i) = Abs([ppm_sol4].Offset(10, 1) - ppmGetBoucle(i))
    Next
    'La plus petite valeur du 2ème array
    mini = Application.Min(dif)
    'Position de cette valeur dans le 2ème array
    'La fonction "Array_pos" trouvée sur le Net
    pos = Array_pos(dif, mini)

Function Array_pos(tableau, recherche)
    
    'https://www.excel-pratique.com/fr/astuces_vba/recherche-position-tableau-array
    
    Array_pos = -1
    
    For ii = LBound(tableau) To UBound(tableau)
        If tableau(ii) = recherche Then 'Si valeur trouvée
            Array_pos = ii
            Exit For
        End If
    Next
End Function