Sub change_Date2()
Dim Plg As Range, T(), L As Long, C As Long
Set Plg = Feuil2.[A2].Resize(Feuil2.[A60000].End(xlUp).Row - 1, 9)
T = Plg.Value
For L = 1 To UBound(T, 1)
For C = 1 To 9
If VarType(T(L, C)) = vbString Then If T(L, C) Like "*/*/*-*:*" Then T(L, C) _
= Format(CDate(Replace(T(L, C), "-", " ")), "dd mmm yyyy hh:mm")
Next C, L
Intersect(Feuil2.[A:D,G:I], Plg).NumberFormat = "dd/mm/yyyy hh:mm"
Plg.Value = T
End Sub