Bonjour ,
prend le code suivant que si tu est désespéré et que personne n'a répondu ensuite parce que la c'est du gros niveau de bombardement des fonction de vba (j'ai pas le temps de faire autre chose et on a pas de fichier pour avoir un exemple)
mettre tout en format text ensuite exécuté
Sub Test()
Dim r As String
lastLigne = Range("A" & Rows.Count).End(xlUp).Row
For i = 2 To lastLigne
r = Range("A" & i).Value
Range("A" & i).Value = Mid(r, 1, 2) & "/" & Mid(r, 3, 2) & "/" & Mid(r, 5, 4)
Next i
End Sub