Bonjour,
Voici un petit code qui va te permettre de répondre à la première partie de ta question.
Tu places celui-ci sur un bouton
Private Sub SaisirCa_Click()
Dim CaSaisi As Variant
Dim JourEnCours As Byte
CaSaisi = InputBox("Saisir le Ca du Jour")
' Récupère le JOur de la date en cours
JourEnCours = Day(Date)
Sheets("CA").Select
ActiveSheet.Range("C13").Activate
'Décale la cellule active d'un nombre de lignes égale au jour de la date en cours
ActiveCell.Offset(JourEnCours, 0) = CaSaisi
End Sub
Quant à la deuxième partie de ta question, puisque le problème est "quasi identique", à toi d'adapter ce qu'il y a ci dessus
Je reste à l'écoute en cas de difficultés.
A+
Jeannot