re-Bonjour Lamperti,

Clairement, par formule de feuille de calcul, je ne saurais pas faire 

(mais je suis sûr qu'un formuliste de talent qui passera par là, se fera une joie de participer à ce fil de dicussion...)

Mais, puisque tu n'as visiblement rien contre VBA , alors je te propose la Fonction personnalisée suivante :

DANS UN MODULE DE CODE STANDARD (ex : Module1)

Function getYear(R As Range) As Long
'myDearFriend! - www.mdf-xlpages.com
Dim T As String, T2  As String
Dim C As Long, V As Long
    Application.Volatile
    T = R.Value
    'Cherche 4 chiffres consécutifs
    If T Like "*####*" Then
        For C = 1 To Len(T) - 3
            T2 = Mid(T, C)
            If T2 Like "####*" Then
                V = Val(Left(T2, 4))
                Exit For
            End If
        Next C
    End If
    getYear = V
End Function

Dans ton exemple modifié en pièce jointe, j'ai ajouté une colonne D avec cette fonction en pleine action...

Bien évidemment, ce n'est pas miraculeux : cette procédure se contente de récupérer la valeur de la première série de 4 chiffres consécutifs rencontrée dans la chaine de texte. Ça semble fonctionner, au moins pour les quelques lignes d'exemples fournis.

J'espère que ça pourra te dépanner et/ou t'inspirer.

Bien cordialement,