Macro pour générer une formule

Bonsoir

Jai 3 cellules A1 ,B1 et C1 et je souhaite une macro qui réalise le test suivant

Si A1 est non vide alors copier le texte qui est dans B1 dans C1

Merci d'avance

Bonsoir

A essayer

Sub test()
' Si A1 est non vide alors copier le texte qui est dans B1 dans C1
  If Range("A1") <> "" Then Range("C1") = Range("B1")
End Sub