Bonjour,
Tu auras du mal avec tes fusions !
Function TACHEMIN(avanc As Range) As String
Dim t(1), c As Range
Application.Volatile
t(1) = 999
For Each c In avanc
If c <> "" Then
If c < t(1) Then
t(1) = c.Value: t(0) = c.Row
End If
End If
Next c
TACHEMIN = avanc.Worksheet.Cells(t(0), 2).MergeArea.Cells(1, 1).Value
End Function
A placer dans un module standard.
Dans E5, mettre : =TACHEMIN(P12:P45)
Cordialement.