Option Explicit
Option Compare Text
Public Function OCCUP$(nom$, sem$) 'pour Excel 97
Dim i As Byte, F As Worksheet, tablo, u&, col As Byte, lig&, ref As Range
If nom = "" Then Exit Function
For i = Mid(sem, 9, 2) To Right(sem, 2)
Set F = Sheets(i + 1)
tablo = F.Range("A1:A2", F.UsedRange) 'pour avoir au moins 2 éléments
u = UBound(tablo)
For col = 1 To UBound(tablo, 2)
For lig = 3 To u
If tablo(lig, col) = nom Then
Set ref = F.Cells(lig, col)
OCCUP = OCCUP & " #" & F.Name & "!" & ref.Address(0, 0) & "-" _
& Format(ref.Offset(1 - ref.Row, (1 - ref.Column) Mod 3), "dd/mm/yy")
End If
Next
Next
Next
End Function