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