Plus c'est long, plus c'est bon, enfin, il paraît!!!?!

Dim n As Integer

Dim n As long

Sub TraitementdesDates()

Dim c As Range, plage As Range
Dim J, n, drligne As Long
drligne = Range("D65536").End(xlUp).Row


For n = drligne To 1 Step -1
Set plage = Range("D" & n)
For Each c In plage
    If Not IsEmpty(c) Then
        c.TextToColumns Destination:=Range("D" & n), DataType:=xlFixedWidth, _
        FieldInfo:=Array(0, 4), TrailingMinusNumbers:=True
    End If
Next c
Next n

End Sub

Sub TraitementdesDonnées()

Dim Nom As String
Dim DateIntegration As Date, DateMax As Date
Dim Lg_Integration As Long, i As Long, J As Long, Z As Long, Derlig As Long, Dercol As Long, NouvelleLigne As Long
Dim n As Integer, compteur As Integer
Dim c As Range, plage As Range, cel As Range
Dim X


'Début du traitement
  
Application.ScreenUpdating = False

Application.DisplayStatusBar = True

' Retirer les colonnes A C I L M

Nom = ActiveWorkbook.Name
With Feuil2
    .Range("A:A,I:I,L:L,M:M").Delete Shift:=xlToLeft
End With

 'retirer les lignes PF et PM
For compteur = 0 To 50
Dim drligne As Long
drligne = Range("A65536").End(xlUp).Row
For n = drligne To 1 Step -1
  If Range("A" & n) = "PM" Then
    Rows(n).Delete
  End If
  If Range("A" & n) = "PF" Then
    Rows(n).Delete
  End If
Next n

Columns("F:G").NumberFormat = "General"

'PROGRESSBAR
  
        PerCent = compteur / 50
        Call ProGraiss(PerCent)
  Next compteur



      
' Transformer les dates en date

 For compteur = 0 To 50
 TraitementdesDates

'PROGRESSBAR
 
        PerCent = compteur / 50
        Call ProGraiss(PerCent)

  Next compteur

Application.DisplayStatusBar = False
Application.ScreenUpdating = True

Unload UserForm1



End Sub