J essaye d imbriquer deux variable

bonjour a tous
merci pour l aide qui m a aider a remplir une cellule via une variable date
j essaye de mettre a la suite ceci mais cela ne fonctionne pas

Dim jourrecp As Byte
jourrecp = InputBox("entre le nombre de jour de recup fixe")
MsgBox (jourrecp)
Sheets("Feuil3").[K34] = jourrecp

es ce que je dois refaire
et sub et un end sub et mettre mon code dedans
merci pour la reponse

pour rappel pour la date j ai ceci

Option Explicit

Private Const MAFEUILLE As String = "Feuil3"
Private Const MACELLULE As String = "B1"

Sub Macro2()
Dim Cpt As Integer, maDate As String
   'demande de saisie
   Do
      Cpt = Cpt + 1
      maDate = InputBox("Entrez votre date : ", "Saisie date", "__/__/____")
   Loop While Not IsDate(maDate) And Cpt <= 4 And StrPtr(maDate) <> 0
   
   'traitement de la saisie
   If StrPtr(maDate) = 0 Then          'abandon
      MsgBox "Abandon utilisateur"
   Else
      If Cpt < 4 Then                  'saisie correcte
         Sheets(MAFEUILLE).Range(MACELLULE).Value = CDate(maDate)
      Else                             'mauvaise saisie 5 fois de suite
         MsgBox "trop bête pour saisir une date en 5 essais"
      End If
   End If
End Sub