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ér 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.