Reconnaissance de date dans une extraction VBA

Sub Macro1()
Dim MA() As Variant 'déclare la variable MA (Mois Anglais)
Dim AN As Long 'déclare la variable AN (ANnée)
Dim MO As String 'déclare la variable MO (MOis)
Dim JO As Byte 'déclare la variable JO (JOur)
Dim D As Long 'déclare la variable D (Date)

MA = Array("JANUARY", "FEBRUARY", "MARCH", "APRIL", "MAY", "JUNE", "JULY", "AUGUST", "SEPTEMBER", "OCTOBER", "NOVEMBER", "DECEMBER") 'définit le tableau MA

'voir l'aide sur la fonction SPLIT
AN = CLng(Split(Range("A1").Value, ",")(2)) 'Crée un groupe de 3 (de 0 à 2) mots séparés par la virgule et récupère le troisième groupe (2) = [l'année AN] converti en entier Long
'du second groupe de 3 mots séparés par la virgule  = ["espace", le mois et le jour], sans l'espace devant (avec TRIM),
'crée un goupe de 2 mots séparés par une espace et récupère le premier (0) = [le mois en lettre]
MO = Split(Trim(Split(Range("A1").Value, ",")(1)), " ")(0)
'du second groupe de 3 mots séparés par la virgule  = ["espace", le mois et le jour], sans l'espace devant (avec TRIM),
'crée un goupe de 2 mots séparés par une espace et récupère le second (1) = [le jour] converti en en entier Byte
JO = CByte(Split(Trim(Split(Range("A1").Value, ",")(1)), " ")(1))
For I = 0 To 11 'boucle sur tous les mois du tableau MA
    If UCase(MO) = MA(I) Then Exit For 'si le mois MO (converti en majuscules) est égal au mois de MA, sort de la boucle
Next I 'prochain mois de la boucle
D = DateSerial(AN, I + 1, JO) 'définit la date D en entier long
Range("A2") = D 'renvoie la date dans A1 (à adapter à ton cas)
Range("A2").NumberFormat = "dd/mm/yyyy" 'format de date de la cellule A2 (tu choisiras le format que tu préfères...)
End Sub