macro à modifier pour toutes les feuilles d'un classeur

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim champ As Range
Dim dte As String

Set champ = Range("b5:d22,b25:d42,b45:d62")
If Not Intersect(champ, Target) Is Nothing Then
    For i = 1 To champ.Areas.Count
        If Not Intersect(champ.Areas(i), Target) Is Nothing Then
            dte = Split(champ.Areas(i).Address, ":")(1)
        End If
    Next i
    If Range(dte) <> "" And Date > Range(dte) Then
        mp = InputBox("mot passe?")
        If mp <> "toto" Then [a1].Select
    End If
End If
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Dim Champ As Range, V As Variant, MP As String
Set Champ = Sh.[B5:D22,B25:D42,B45:D62]
Set Target = Intersect(Champ, Target)
If Target Is Nothing Then Exit Sub
V = Sh.Cells(((Target.Row - 5) \ 20) * 20 + 22, "D").Value
If V <> "" And Date > V Then
   MP = InputBox("mot passe?")
   If MP <> "toto" Then Sh.[a1].Select
   End If
End Sub