[vba] variable qui devrait changer de valeur

Ce que je souhaite faire: dans la première colonne de la feuille j'ai des cellules qui contiennent des valeurs (jusqu'à une cellule vide qui marque la fin), quand la cellule commence par "Commercial" alors insérer une ligne.
Pour ça j'ai écrit un code qui récupère les dix première lettres de la cellule en commençant par la cellule A1, si elles sont égales à "Commercial" alors insérer une ligne et passer à la cellule du dessous, sinon passer à la cellule du dessous.
Le problème c'est que ma variable "debut" qui contient les dix lettres ne change pas de valeur: elle garde toujours les dix premières lettres de A1. Je souhaiterai que la variable "debut" récupère les lettres de la cellule active, qui change à chaque fois.

Voici mon code qui ne marche pas:

Sub macro()

Dim debut 

debut = Left(ActiveCell.Value, 10)

 Range("A1").Select

Do While ActiveCell <> ""

    If debut = "Commercial" Then

    Selection.Insert Shift:=xlDown

    ActiveCell.Offset(1, 0).Select

    Else

    ActiveCell.Offset(1, 0).Select

    End If

Loop

End Sub

Si quelqu'un a une idée, merci!