Function RECHERCHE_X(rech, CH, Dest)
Dim C As Variant, X As Variant
Application.Volatile
If CH.Rows.Count = Dest.Rows.Count And CH.Columns.Count = Dest.Columns.Count Then
Set C = CH.Find("*", , , , xlByRows, xlPrevious)
If Not C Is Nothing Then
h = C.Row - CH.Row + 1
l = C.Column - CH.Column + 1
RECHERCHE_X = Application.Index(Dest, h, l)
End If
End If
End Function