Re : problème date de photo
à défaut je ferais
Dim c As Range
For Each c In Selection
c.Value = Mid(c.Text, 2, 3) & Mid(c.Text, 6, 3) & Mid(c.Text, 10, 5) & Mid(c.Text, 17, 5)
Next
en espérant que les espaces ne bougent pas comme ils l'ont fait visiblement depuis la dernière fois que j'ai utilisé ce traitement...