Boucle do until

Bonjour,

j'ai un petit souci avec ma boucle sous vba: elle fonctionne bien mais tout à la fin de l'exécution, j'ai un message d'erreur sur mon i = i + 1
voici le code en entier (le but est juste de combiner deux colonnes en une):


Dim i As Integer

Sub rajouter()

i = 1

Do Until IsEmpty("a" & i)
Range("c" & i).Value = Range("a" & i).Value & "_" & Range("b" & i).Value
i = i + 1
Loop

End Sub

si quelqu'un avait une solution,ça m'aiderait bien ^^
merci