Sub test()
Dim rr As Range, res As Long
Set rr = ActiveSheet.Range("A1")
res = Application.WorksheetFunction.Min(Range(rr.Offset(0, 2), rr.Offset(0, 5)))
MsgBox res
End Sub
Sub test()
Dim cel As Range, mfimin As Double
Set cel = Sheets("datas").[E6]
mfimin = Application.Min(cel(1, 36).Resize(, 3))
MsgBox mfimin 'pour tester
End Sub
A retenir : en VBA les Select et autre Activate sont en général inutiles, donc à proscrire.