Insertion d'une ligne automatique dans Excel - colonne A

Bonjour,
Je voudrais insérer une ligne automatiquement à chaque fois que le compte change dans la colonne A.

J'ai trouver dans une autre discussion un code VBA, mais il s'applique sur les infos de la colonne B.
Je n'arrive pas à identifier ce que je dois changer dans le code pour qu'il s'applique sur les infos de la colonne A.

Public Sub insère_ligne()
Dim lig As Long
Application.ScreenUpdating = False
For lig = ActiveSheet.Cells(Columns(1).Cells.Count, 2).End(xlUp).Row To 2 Step -1
If Cells(lig, 2).Value <> Cells(lig + 1, 2).Value _
And Cells(lig + 1, 2).Value <> "" _
And Cells(lig, 2).Value <> "" Then
Rows(lig + 1).Insert
End If
Next lig
End Sub

Merci d 'avance !!!