Function RechercheGlobale(ValeurCherchée) As Variant
Dim SH As Worksheet
Dim CL As Range
RechercheGlobale = 0
'Exit Function
For Each SH In Worksheets
If SH.Name <> "SUIVIS" Then
With SH.Range("F2:F" & SH.Range("F65536").End(xlUp).Row)
Set CL = .Find(what:=ValeurCherchée, LookIn:=xlValues, lookAt:=xlWhole, searchorder:=xlByRows, MatchCase:=False)
If Not CL Is Nothing Then
RechercheGlobale = CL.Offset(0, -5)
Exit For
End If
End With
End If
Next SH
End Function