Sub Traitement()
' Suppression ligne contenant Page
Application.ScreenUpdating = False
DL = Range("A65500").End(xlUp).Row
For L = DL To 2 Step -1
If Left(Cells(L, "A"), 4) = "Page" Then Cells(L, 1).EntireRow.Delete
Application.StatusBar = "Phase 0. N° ligne traitée : " & L
Next L
' Déplacement cellule A en B
DL = Range("A65500").End(xlUp).Row
For L = DL To 3 Step -2
Cells(L - 1, "B") = Cells(L, "A")
Cells(L, 1).EntireRow.Delete
Application.StatusBar = "Phase 1. N° ligne traitée : " & L
Next L
' Extraction Titre
DL = Range("A65500").End(xlUp).Row
For L = DL To 2 Step -1
Cells(L, "C") = Mid(Cells(L, "B"), InStr(1, Cells(L, "B"), ".") + 1)
Application.StatusBar = "Phase 2. N° ligne traitée : " & L
PlacePoint = InStr(1, Cells(L, "C"), ".")
Cells(L, "C").Characters(Start:=1, Length:=PlacePoint).Font.Bold = True
Next L
' Journal et année
DL = Range("A65500").End(xlUp).Row
For L = DL To 2 Step -1
tablo = Split(Cells(L, "C"), ".")
Cells(L, "D") = tablo(0)
Cells(L, "E") = Val(Left(Trim(tablo(1)), 4))
Application.StatusBar = "Phase 3. N° ligne traitée : " & L
Next L
' Suppression colonne B
Columns("B:B").Delete Shift:=xlToLeft ' A remettre si texte original doit être conservé
' Mise en forme
Columns("A:C").ColumnWidth = 47
Columns("D:D").ColumnWidth = 6
Columns("A:C").WrapText = True
Cells.EntireRow.AutoFit
ActiveWindow.ScrollColumn = 1: ActiveWindow.ScrollRow = 1
Set F = ActiveSheet.UsedRange
[A1].Activate
Application.StatusBar = ""
End Sub