For Each sh In Sheets If sh.Name <> "Crépy" Then
sh.Activate
On Error Resume Next
ActiveSheet.Cells.Find(What:="Date", After:=Range("A1"), LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False).Select
If Selection.Value = "Date" Then
ActiveCell.Offset(1, 0).Formula = "=Crépy!B5"
End If
End If
Next
Sheets("Crépy").Activate