Modifier une date

Bonjour,

J’ai un une colonne avec des dates je voudrai à chaque que j’ai une date qui commence par le 23/05 la remplacer par 22/05. Par exemple remplacer le 23/05/2019 par 22/05/2019.

J’ai mis la macro suivante mais je dois avoir une erreur. Pouvez vous m’aider à la corriger ? merci

Sub Macro1()

Sheets("Feuil1").Select

Dim MaCellule As Range, Mois As Integer, Jour As Integer, Année As Integer, LaDate As Date

Jour = Left(MaCellule, 2) * 1

Mois = Mid(MaCellule, 4, 2) * 1

Année = Right(MaCellule, 4) * 1

LaDate = DateSerial(Année, Mois, Jour)

For Each MaCellule In Range("B2", Range("B2").End(xlDown))

If Jour.Value = "23" And Mois.Value = "05" Then

MaCellule.Value = LaDate - 1

End If

Next MaCellule

End Sub

Bonjour

Une autre méthode

Sub Macro1()
  Sheets("Feuil1").Select
  Dim MaCellule As Range

  For Each MaCellule In Range("B2", Range("B2").End(xlDown))
    If Day(MaCellule) = 23 And Month(MaCellule) = 5 Then MaCellule = MaCellule - 1
  Next MaCellule
End Sub