re "MangePasDpain"
cette procèdure remplace dans la colonne A les chiffres par la date au format demandé
Sub formule()
Dim derlgn As Integer, lgn As Integer
Dim Tab1 As Variant
Application.ScreenUpdating = False
With Worksheets("Feuil1")
derlgn = .Range("A65536").End(xlUp).Row
Tab1 = .Range(.Cells(1, 1), .Cells(derlgn, 1)).Value
For lgn = 1 To UBound(Tab1, 1)
.Cells(lgn, 1) = Right(Trim(Tab1(lgn, 1)), 2) & " " & Left(Trim(Tab1(lgn, 1)), 4)
.Cells(lgn, 1) = Format(.Cells(lgn, 1), "mmmm - yy")
Next
End With
Application.ScreenUpdating = True
End Sub
A+++
Jean Marie