Répéter une formule en VBA

Bonjour

J'aimerais répéter une formule en VBA, la formule est "=B3*24" j'aimerais que la macro applique cette formule au ligne suivante automatiquement tant que les cellules de la colonne A sont remplis

Merci d'avance pour votre aide ^^

Bonjour

Sub calcul()
Dim i As Long
i = 2
While Sheets("feuil1").Range("a" & i) <> ""
Sheets("feuil1").Range("c" & i) = Sheets("feuil1").Range("b" & i) * 24
i = i + 1
Wend
End Sub

Merci !!!