Function RechercheGlobale(ValeurCherchée) As Double
Dim SH As Worksheet
Dim CL As Range
RechercheGlobale = 0
For Each SH In Worksheets
If SH.Name <> "DA" Then
For Each CL In SH.Range("B2:B" & SH.Range("B65536").End(xlUp).Row)
If CL = ValeurCherchée Then
RechercheGlobale = CL.Offset(0, 1)
End If
Next CL
End If
Next SH
End Function