Sub Correction()
Dim tablo, i&, s
With [A3].CurrentRegion 'à adapter
tablo = .Resize(, 2) 'matrice, plus rapide, au moins 2 éléments
For i = 1 To UBound(tablo)
s = Split(tablo(i, 1), "/")
If UBound(s) = 3 Then
s(0) = Right("0000" & s(0), 4)
s(1) = Right("00" & s(1), 2)
s(2) = Right("00" & s(2), 2)
s(3) = Right("0000" & s(3), 4)
tablo(i, 1) = Join(s, "/")
End If
Next
.Columns(1) = tablo
End With
End Sub