Re-,
Tu as joint un fichier exemple, cependant dans les colonnes C, D, G, H ou autres, est-ce qu'il y a des données?
Si c'est le cas, et afin de répondre à ta 2ème question (extraction vers autre feuille des "mercredis"), est-ce que tu peux donner les titres de colonnes?
Et est-ce que le fait de changer les titres des colonnes "E" et "F" (titrées comme les colonnes "A" et "B", soit "Date" et "Last") serait pénalisant?
@ te relire
PS :
@ Marc L, une autre manière, bien sûr adaptée à son fichier :
Sub Convert_Date()
Dim DerLig As Long
Dim MoisA
Dim I As Byte
Application.ScreenUpdating = False
MoisA = Array("Jan", "Feb", "Mar", "Apr", "May", "Jun", "Jul", "Aug", "Sep", "Oct", "Nov", "December")
DerLig = Cells(Rows.Count, "A").End(xlUp).Row
With Range("A4:A" & DerLig & ",E4:E" & DerLig)
.Replace " ", "/", xlPart
.Replace ",", "", xlPart
For I = LBound(MoisA) To UBound(MoisA)
.Replace MoisA(I), I + 1, xlPart
Next I
.NumberFormat = "dddd dd/mm/yyyy "
End With
End Sub
Bon W-E