Information progression Pourcentage des traitement de données

Sub Caracteres_speciaux() 'Contrôle Caractères Speciaux
[COLOR=red]Dim nbLignes As Long, Iter As Long[/COLOR]
With Sheets(CONTROLE)
  Set Plage = .Range("B2").CurrentRegion
.Range(.Range("B2"), Plage.Cells(Plage.Cells.Count).Address).Clear
End With
[COLOR=red]nbLignes = Sheets(CONTROLE).Range("A2:" & Sheets(CONTROLE).Range("A65536").End(xlUp).Address).Rows.Count[/COLOR]
For Each x In Sheets(CONTROLE).Range("A2:" & Sheets(CONTROLE).Range("A65536").End(xlUp).Address)
  With Worksheets(DATA).Cells
    Set C = .Find(x.Value2, LookIn:=xlValues, LookAt:=xlPart)
    If Not C Is Nothing Then
      firstAddress = C.Address
      Do
        Sheets(CONTROLE).Cells(x.Row, 256).End(xlToLeft).Offset(0, 1) = C.Address(REF_ABS, REF_ABS)
        Set C = .FindNext(C)
      Loop While Not C Is Nothing And C.Address <> firstAddress
    End If
  End With
 [COLOR=red] Iter = Iter + 1[/COLOR]
[COLOR=red] [Progression] = Format(Iter / nbLignes, "0%") & " " & String(Int(Iter / nbLignes * 100) / 5, "*")[/COLOR]
Next
Call Test2
End Sub

Sub Validation_prix()
Sheets(DATA).Select
Columns("AH:AH").TextToColumns Destination:=Range("AH1")
Call CtrlPrix
End Sub