retrouver une cellule fusionnée dans des milliers ???

Function Fusionnées(Optional MaZone As Range, Optional Verbose As Boolean = True, Optional Clear As Boolean = False, Optional Recopie As Boolean = True)
Dim rg As Range, cl As Range, cll As Range
Dim TempVal
If MaZone Is Nothing Then Set MaZone = ActiveCell.CurrentRegion

Fusionnées = 0
For Each cll In MaZone
    If cll.MergeCells = True Then
        If Verbose Then MsgBox (cll.Address & " est fusionnée dans " & cll.MergeArea.Address)
        If Clear Then
            Set rg = cll.MergeArea
            Fusionnées = Fusionnées + rg.Cells.Count
            'MsgBox Fusionnées
            TempVal = rg.Cells(1, 1).Value
            'MsgBox "a recopier " + CStr(TempVal)
            cll.MergeArea.UnMerge
            If Recopie Then
                For Each cl In rg
                    rg.Value = TempVal
                Next cl
            End If
        Else
        Fusionnées = Fusionnées + 1
        End If
    End If
Next cll
End Function