Public Function CmdF(ByVal rRange As Range, ByVal LaVal As Variant, ByVal Precis° As XlLookAt, ByVal RespectCass As Boolean) As Range
Dim TempRange As Range, Adresse As String
Set TempRange = rRange.Find(LaVal, rRange.Cells(1), xlFormulas, Precis°, xlByRows, xlNext, RespectCass)
If Not TempRange Is Nothing Then
Adresse = TempRange.MergeArea.Address(False, False)
Do
Set TempRange = rRange.FindNext(TempRange)
Adresse = Adresse & IIf(InStr(1, Adresse, TempRange.Address(False, False)) = 0, "," & TempRange.MergeArea.Address(False, False), "")
Loop Until TempRange.Address = Range(Adresse).Cells(1).Address
End If
If Adresse <> "" Then Set CmdF = rRange.Parent.Range(Adresse)
End Function