Récupération d'une valeur dans une cellule contenant plein de texte

Bonjour,

Je cherche la commande VBA qui me permet de récupérer la 1ère date de chaque cellule qui se trouve sur les 19 premiers caractères de chaque cellule (sachant qu'il y a une ligne vide à chaque début de cellule).

Ci-joint le fichier pour bien expliquer cela.

Merci d'avance de votre aide.

Bonjour,

Une proposition Power Query (sans VBA) ?

Cdlt.

bonjour

un essai à tester ;la formule est matricielle

=TEXTE(STXT(A2;MIN(SI(SIERREUR(TEXTE(STXT(A2;LIGNE($1:$50);20);"0")*1;0)>40000; LIGNE($1:$50);""));19)*1;"jj/mm/aa hh:mm")

cordialement

Merci de ces retours, mais cette demande est une partie d'un traitement global en VBA, c'est pour cela que je demandais une version en VBA ;-).