Salut et bienvenue sur le Forum,
Voici un code qui devrait répondre à ton attente :
Option Explicit
Sub aa()
Dim i As Integer, j As Integer
For j = 1 To Range("B65000").End(xlUp).Row
i = Application.WorksheetFunction.Find("/", Range("B" & j))
Range("C" & j) = Mid(Range("B" & j), i - 2, 10)
Range("D" & j) = Mid(Range("B" & j), i + 12, 10)
Next j
End Sub
Tu constateras dans le fichier ci-joint qu'il y a un problème de format de date (01/08/2012 ou 08/01/2012). Regarde déjà si le reste te convient et soit tu modifies toi-même le format des dates des colonnes C et D comme ça te convient, soit tu reviens avec plus de précision quant à ce format de date.
Cordialement.
EDIT 10 minutes après : Je viens de me rendre compte que tu demandais plutôt une solution par formule. Regarde alors le fichier "V2"