VBA problème d'ajout de ligne avec excel

Bonjour;

voila je développe un petit macro sous excel pour que dans la premier colone a chaque foi que je rencontre le Caractère : en 1er position, un nouvelle ligne vienne s'intercalé entre la ligne ou le ":" a été trouvé et la ligne précédente.

mon problème est que le code suivant ne fonctionne pas a chaque foi qu'il trouve ":" et je ne comprend pas pq voici le code

sub Feuille()

Dim ligne As Integer
Dim LigneMax As Integer
Dim NomFeuille As String
Dim ValCell As String
Dim Caract As String

NomFeuille = InputBox(" Nom de la feuille a traité", "Feuille", "")
LigneMax = inputBox("Nombre de ligne a traité", Ligne", 0)
LigneMax = LigneMax * 2

for ligne = 1 To LigneMax
ValCell = WorkSheets(NomFeuille).Cells(ligne, 1). vallue
Caract = Mid(ValCell, 1, 1)
if Caract = ":" Then
WorkSheets(NomFeuille).Cells(ligne, 1).EntireRow.Insert
End IF
ligne = ligne + 1
Next
End sub

voila le code

en ce qui conserne le fichier sur le quelle j'ai ce problème je peut vous l'envoyer par E-mail.

Merci pour votre attention
et merci davance pour vos réponse