Sub transfert()
Dim LeJour As Integer, LeMoyen As Integer
LeJour = CInt(Format(Date, "d")) + 4
Select Case [A29]
Case "carte bancaire"
LeMoyen = 4
Case "chèque"
LeMoyen = 3
Case "especes"
LeMoyen = 2
Case "bons"
LeMoyen = 5
End Select
With Sheets("caisse")
.Cells(LeJour, LeMoyen) = .Cells(LeJour, LeMoyen) + [D28]
End With
End Sub