Private Sub CommandButton1_Click()
Dim Imin As Long
Dim smin As Long
smin = 1000000000#
lmin = Cells(9, 13).Value ' <- ligne 9 colonne 13
For i = 5 To 13
For j = 18 To 26
If (lmin < Cells(i, j)) Then
If Cells(i, j) < smin Then smin = Cells(i, j): mini = i: minj = j
End If
Next j
Next i
Cells(mini, minj).Font.Color = RGB(255, 0, 0)
Range("V41") = smin
Range("V42") = Cells(mini, "Q")
Range("V43") = Cells(4, minj)
End Sub