Microsoft 365 Modif macro date

Bonsoir,

J'aurais besoin d'aide pour un changement de formule.

AVANT :

Sub reception()
Dim C As Range, Derlg As Long, Plage1 As Range
If Weekday(Date, 2) > 5 Then Exit Sub
Application.ScreenUpdating = False
With Feuil1
Derlg = .Cells.Find("*", , , , xlByRows, xlPrevious).Row
Set Plage1 = .Range("a2:a" & Derlg) ': Set Plage2 = .Range("d2:d" & Derlg)
For Each C In Plage1
Select Case C.Value
Case "Expédiée"
C.Offset(, 12).Value = Date
C.Offset(, 13).Value = Date + 1
Case "Préparée Totalement" 'J+1
C.Offset(, 12).Value = Date + 1 + Abs(Weekday(Date, 2) = 5) * 2
C.Offset(, 13).Value = C.Offset(, 12).Value + 1
Case "En traitement RFX" 'J+2
C.Offset(, 12).Value = Date + 2 + (Abs(Weekday(Date, 2) = 5) * 2) + (Abs(Weekday(Date, 2) = 4) * 2)
C.Offset(, 13).Value = C.Offset(, 12).Value + 1
Case "TRAITEE J+3"
C.Offset(, 12).Value = Date + 3 + (Abs(Weekday(Date, 2) = 5) * 2) + (Abs(Weekday(Date, 2) = 4) * 2) + (Abs(Weekday(Date, 2) = 3) * 2)
C.Offset(, 13).Value = C.Offset(, 12).Value + 1
End Select
Next
End With
Application.ScreenUpdating = True
End Sub

Je voudrais dans la feuille synthèse que pour

Case "Préparée Totalement" 'J+1
C.Offset(, 12).Value = Date + 1 + Abs(Weekday(Date, 2) = 5) * 2
C.Offset(, 13).Value = C.Offset(, 12).Value + 1

ca mette dans la colonne 12 directement la date indiquée dans l'onglet X3 colonne D. Le point commun entre la feuille synthese et X3 est le code. Colonne B pour synthese et colonne G pour X3.

et qu'ensuite ca mette le jour suivant sauf dimanche dans la colonne 13.

Merci de votre aide et de votre explication.