Private Sub Liredonnees(ByVal NomFichier As String)
Dim Chaine As String
Dim Ar() As String
Dim i As Long
Dim iRow As Long, iCol As Long
Dim NumFichier As Integer
Dim Debut As Long, Fin As Long
Dim pl As Range
Dim cel As Range
Debut = GetTickCount
Cells.Clear
Application.ScreenUpdating = False
Close
NumFichier = FreeFile
iRow = 0
Open NomFichier For Input As #NumFichier
Do While Not EOF(NumFichier)
iCol = 1: iRow = iRow + 1
Line Input #NumFichier, Chaine
Ar = Split(Chaine, Separateur)
For i = LBound(Ar) To UBound(Ar)
Ar(i) = Replace(Ar(i), Chr(34), Chr(32))
Ar(i) = Trim(Ar(i))
If IsNumeric(Ar(i)) Then
Cells(iRow, iCol) = CDec(Ar(i))
Else
Cells(iRow, iCol) = Right((Left(Ar(i), Len(Ar(i)) - 1)), Len(Ar(i)) - 2)
End If
iCol = iCol + 1
Next i
Loop
Close #NumFichier
Fin = GetTickCount
Call AjoutEnTete
Set pl = Range("A1:A" & Range("A65536").End(xlUp).Row)
pl.Name = "base"
[E1] = [A1]
Range("base").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("E1" _
), Unique:=True
For Each cel In Range("E2:E" & [E65000].End(xlUp).Row)
cel.Offset(0, 1).Value = Application.CountIf([base], cel)
Next cel
End Sub