Convertir une macro VBA en script sheets

Bonjour à tous,

J'ai vainement essayé de convertir une macro Excel VBA "toute simple" en script Sheets mais j'échoue lamentablement.

Voici la macro VBA :

Private Sub Workbook_Open()
Sheets("Spielplan").Select
Dim cellule As Range
For Each cellule In Sheets("Spielplan").Range("a1:ND1")
If cellule = Date Then
ActiveWindow.ScrollColumn = cellule.Column
End If
Next cellule
End Sub

Quelqu'un peut m'aider svp ? Merci d'avance