enregistrement = Application.InputBox("Entrer le N° d'enregistrement recherché", Type:=2)
Range("L5").Value = enregistrement
Dim F As Worksheet
Dim Cel As Range
Dim Cel_Ref As Range
Set Cel_Ref = Range("L5")
For Each F In Sheets
For Each Cel In F.UsedRange
If (Cel.Address <> Cel_Ref.Address Or F.Name <> ActiveSheet.Name) And _
Cel Like Cel_Ref And (Cel.Address(0,0) <> "K7" And Ucase(F.Name)<>"ENTREE STOCK") Then
F.Activate
Cel.Activate
Rows(ActiveCell.Row).Select
Exit Sub
End If
Next Cel
Next F
MsgBox "Pas de concordance"
'
End Sub