Salut le forum
N'ayant pas une version anglaise d'excel à essayer
Sub Transfert()
Dim MaDate As Date
Dim Valeur As String
Dim Tablo
Dim I As Byte, J As Byte
Tablo = Array("Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat")
For I = 1 To 70
If IsDate(Cells(I, 1)) Then
MaDate = Cells(I, 1)
Cells(I, 1) = Format(CDate(MaDate), "mmmm dd,yyyy")
Else
For J = 0 To 6
If Left(Cells(I, 1), 3) = Tablo(J) Then
Valeur = Right(Cells(I, 1), Len(Cells(I, 1)) - 4)
Cells(I, 1) = Format(CDate(Valeur), "mmmm dd,yyyy")
End If
Next J
End If
Next I
End Sub