Sub testtt()
For n = 1 To Range("C65536").End(xlUp).Row
If InStr(1, Range("C" & n), "/") = 0 Then
d = Format(Range("C" & n), "DD")
x = Format(Range("C" & n), "mm")
Range("C" & n).NumberFormat = "@"
Range("C" & n) = d & "/" & x
End If
Next n
Call test
End Sub
Sub test()
Dim PlgDon As Range, T(), L As Long, TSpl$()
Set PlgDon = Rows(3).Resize([C1000000].End(xlUp).Row - 2)
T = PlgDon.Columns("C").Value
For L = 1 To UBound(T, 1)
Select Case VarType(T(L, 1))
Case vbDate: T(L, 1) = Day(T(L, 1)) / Month(T(L, 1))
Case vbString: TSpl = Split(T(L, 1), "/"): T(L, 1) = TSpl(0) / TSpl(1)
End Select: Next L
PlgDon.Columns("D").NumberFormat = "general"
PlgDon.Columns("D").Value = T
'PlgDon.Columns("E").NumberFormat = "###/###" ' j'ai pas vraiment besoin de XXX /1
'PlgDon.Columns("E").Value = T
End Sub