Macro excel

Bonjour,

Je débute avec les macros et je n'arrive aps à trouver mon erreur dans le code suivant.
Je cherche à recopier l'heure inscrite dans la colonne B(h:m:s) dans la colonne H (uniquement h).
la macro écrite est la suivante :

Pouvez vous m'indiquer quelle est mon erreur puisque la macro ne souhaite pas fonctionner.

Sub Macro2()
r = 2
For i = 1 To 250
Cells(r, 8).Value = Hour(Cells(r, 2))
r = r + 1
Next i
End Sub


merci