Erreur 424 sur mon fichier

Bonjour a tous, j'ai récupéré sur un forum une fonction pour permettre de noter un commentaire en face d'une cellule ou j'enregistre l'heure, hors quand je lance la macro la boite de dialogue s'ouvre ,je saisie du texte ,mais quand je clic sur OK il me met un message d'erreur 424 ? pouvez vous m'aider,

voici le code

ActiveSheet.Unprotect "toto"
Range("a65536").End(xlUp).Offset(1, 0).Select
ActiveCell.Select
ActiveCell.FormulaR1C1 = ""
ActiveCell.Select
ActiveCell.FormulaR1C1 = "=NOW()"
Selection.NumberFormat = "[$-F400]h:mm:ss AM/PM"
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.Offset(1, 0).Select
''debut modif
Dim resultat As String

resultat = InputBox("quelle est la cause de l'arret ?", "Votre nom...")

If resultat <> "" Then
Range("b65536").End(xlUp).Offset(1, 0).Select = resultat
End If
'fin modif
ActiveSheet.Protect "toto", True, True, True
End Sub

Bonjour,
Essaie ainsi :

Public Sub globalhygiene()
Dim lRow As Long, resultat As String
    With ActiveSheet
        .Unprotect "toto"
        lRow = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
        With .Cells(lRow, 1)
            .Value = VBA.Now
            .NumberFormat = "[$-F400]h:mm:ss AM/PM"
        End With
        resultat = InputBox("quelle est la cause de l'arret ?", "Votre nom...")
        If resultat <> "" Then
            .Cells(lRow, 2).Value = resultat
        End If
        .Protect "toto", True, True, True
    End With
End Sub

c'est sur cette ligne que le programme bug

Range("b65536").End(xlUp).Offset(1, 0).Select = resultat

Re,
As-tu essayé ma proposition ?
Cdlt.

Je viens de modifier avec ton code ,ça marche du tonnerre

Merci beaucoup pour ton aide

Cordialement

Re,