Cellule

Option Explicit
Sub Combien()
    With Range("j38")
        .Select
        .FormulaArray = _
        "=ADDRESS(MIN(IF(RC[-8]:RC[-1]=MAX(RC[-8]:RC[-1]),ROW(RC[-8]:RC[-1]))),MATCH(MAX(RC[-8]:RC[-1]),INDIRECT(MIN(IF(RC[-8]:RC[-1]=MAX(RC[-8]:RC[-1]),ROW(RC[-8]:RC[-1])))&"":""&MIN(IF(RC[-8]:RC[-1]=MAX(RC[-8]:RC[-1]),ROW(RC[-8]:RC[-1])))),0))"
        MsgBox Range(Selection).Value    ' ou .Offset(1, 0).Value = Range(Selection).Value ' pour un résultat sous j38
    End With
End Sub

Option Explicit
Sub Combien_V2()
    With Range("j38")
        .Select
        .FormulaArray = _
        "=ADDRESS(MIN(IF(RC[-8]:RC[-1]=MAX(RC[-8]:RC[-1]),ROW(RC[-8]:RC[-1]))),MATCH(MAX(RC[-8]:RC[-1]),INDIRECT(MIN(IF(RC[-8]:RC[-1]=MAX(RC[-8]:RC[-1]),ROW(RC[-8]:RC[-1])))&"":""&MIN(IF(RC[-8]:RC[-1]=MAX(RC[-8]:RC[-1]),ROW(RC[-8]:RC[-1])))),0))"
    End With
    [q1] = Range(Selection).Value
End Sub