Sub Revient()
Application.ScreenUpdating = False
DL = Cells(Cells.Rows.Count, "A").End(xlUp).Row ' Changer la colonne à traiter ( 3 emplacements )
T = Range("A1:A" & DL)
For i = 1 To UBound(T)
T(i, 1) = "'" & Mid(T(i, 1), 3)
Next i
[A1].Resize(UBound(T, 1), UBound(T, 2)) = T
End Sub