Public Function OCCUP(nom As String, sem As String, Optional cellule As Boolean)
Dim s1 As Byte, s2 As Byte, i As Byte, F$, ref As Range, ad$, affiche$
s1 = Split(sem)(1): s2 = Split(sem)(3)
For i = s1 To s2
F = Sheets(i + 1).Name
Set ref = Sheets(i + 1).[IV65536]
ad = ""
1 Set ref = Sheets(i + 1).Cells.Find(nom, After:=ref, LookIn:=xlValues, LookAt:=xlWhole)
If Not ref Is Nothing Then
If ref.Address <> ad Then
If ad = "" Then ad = ref.Address
OCCUP = OCCUP + 1
affiche = affiche & " #" & F & "!" & ref.Address(0, 0)
GoTo 1
End If
End If
Next
If cellule Then OCCUP = affiche 'si 3ème argument = VRAI
End Function