Bonjour le fil, bonjour le forum,
Une proposition VBA avec le code ci-dessous :
Sub Macro1()
Dim O As Worksheet 'déclare la variable O (Onglet)
Dim TC As Variant 'déclare la variable TC (Tableau de Cellules)
Dim I As Long 'déclare la variable I (Incrément)
Set O = Sheets("Sheet1") 'définit l'onglet O
TC = O.Range("A1").CurrentRegion 'définit le tableau de cellules TC
For I = 2 To UBound(TC, 1) 'boucles sur toutes les lignes I du tableau de cellules TC (en partant de la seconde)
'définit la valeur ligne I colonne 2 de TC
TC(I, 2) = DateSerial(Split(TC(I, 1), ".")(2), Split(TC(I, 1), ".")(1), Split(TC(I, 1), ".")(0))
Next I 'prochaine ligne de la boucle
O.Range("A1").Resize(UBound(TC, 1), 2) = TC 'renvoie dans A1 de l'onglet O le tableau TC
End Sub