centrer une feuille sur une cellule

Option Explicit
Private Sub Worksheet_Activate()
Range("P70").Select
End Sub

Private Sub Worksheet_Activate() 'à l'activation de l'onglet
Dim cel As Range 'déclare la variable cel (CELlule)
 
For Each cel In Range("A2:" & Range("IV2").End(xlToLeft).Address) 'boucle sur toutes les cellules éditées cel de la ligne 2
    If cel.Value = Date Then 'condition : si la valeur de la cellule est égale à la date du jour
        cel.Select 'sélectionne la cellule
        Exit For 'sort de la boucle
    End If 'fin de la condition
Next cel 'prochaime cellule de la boucle
End Sub

Option Explicit
Private Sub Worksheet_Activate()
Dim x As Range
Set x = Range("2:2").Find(Date, , xlValues, xlWhole, , , False)
If Not x Is Nothing Then x.Select
End Sub