Modifier Code

bonsoir a tous,

j'ai ce bout de code qui me permet d'avoir une barre de progression cela fonctionne bien mais par contre seulement sur la colonne A

alors je souhaiterai que cette barre de proression soit active de A4 jusqu-a la derniere colonne de la cellule vide

je souhaiterai modifier la ligne suivante <<

With ActiveSheet

dlig = .Cells(.Rows.Count, "A").End(xlUp).Row

End With<<

Merci a vous

With ActiveSheet
dlig = .Cells(.Rows.Count, "A").End(xlUp).Row
End With

            BeginCount = 0
           Row = 4

             LastRow = dlig

            t Row = FirstRow

        BeginCount = FirstRow

        If Options = 7 Then
            AlertForm.Label1.Caption = "Processing Awbs ....."
            AlertForm.Label2.Visible = True
            AlertForm.Label2.Caption = "0%"
            AlertForm.Label3.Visible = True
            AlertForm.Label3.Caption = "Click ""Cancel"" to quit."
            AlertForm.AlertCancel.Visible = True
            AlertForm.Show
        Else
            AlertForm.Label1.Caption = "Processing Awbs ....."
            AlertForm.Label2.Visible = True
           AlertForm.Label2.Caption = "0%"
            AlertForm.Label3.Visible = True
            AlertForm.Label3.Caption = "Click ""Cancel"" to quit."
            AlertForm.AlertCancel.Visible = True
            AlertForm.Show
        End If

Do Until theRow > LastRow