XL 2019 VBA - Stocker une valeur

Sub Test()
    Dim x As String, a As Integer, n As Byte
    'Collecter le numéro du mois
    x = InputBox("Quel est le numéro du mois ?", "Numéro mois", 1)
    n = Val(x)
    x = InputBox("Quel est le numéro de l'année ?", "Numéro année", 2022)
    a = Val(x)
    MsgBox ("la date est " & DateSerial(a, n, 1))
End Sub

Sub Test()

Dim chemin As String
    chemin = "'C:\Users\pierr\Excel\" 'à modifier en fonction du lieu d'enregistrement du fichier

    'Collecter le numéro du mois
    x = InputBox("Quel est le numéro du mois ?", "Numéro mois", 1)
    n = Val(x)
    m = Val(x) - 1
    o = Val(x) + 1
    'Collecter le numéro de l'année
    y = InputBox("Quel est le numéro de l'année ?", "Numéro année", 2022)
    a = Val(y)
    'Si le numéro du mois est inférieur à 10 alors rajouter un zéro devant le  numéro du mois sinon ne rien rajouter
    Z = "=IF(n<10,0,"")"
    b = Val(Z)


    'Insérer la formule pour trouver le nom du client dans la colonne F
    Range("F2").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(ISERROR(VLOOKUP(RC4," & chemin & "\[Affaires produites " & b & "" & n & "." & a & ".xlsx]A'!R1C3:R1000C105,7,0))," & _
        "VLOOKUP(RC4," & chemin & "\[Affaires produites " & b & "" & m & "." & a & ".xlsx]A'!R1C3:R1000C105,7,0)," & _
        "VLOOKUP(RC4," & chemin & "\[Affaires produites " & b & "" & n & "." & a & ".xlsx]A'!R1C3:R1000C105,7,0))"

End Sub

Sub Test()

Dim MoisTxt As String
Dim Mois As Integer
Dim Cellule As Range

For Each Cellule In Range("E2:E14")
    Mois = CInt(Cellule.Value)
    If Mois <= 12 And Mois >= 1 Then
        Select Case Mois
            Case 10, 11, 12
                MoisTxt = Format(Mois, "000")
            Case Else
                MoisTxt = Format(Mois, "00")
        End Select
    Range("F" & Cellule.Row).Value = "texte du mois = " & MoisTxt
    Else
        Range("F" & Cellule.Row).Value = "Mois inconnu !"
    End If
Next

End Sub

Sub Test()
Dim n As Long, m As Long, o As Long, a As Long, maDate As Date
 
   Do       'quel mois ? (stocké dans n)
      n = Int(Val(InputBox("Quel est le numéro du mois ?", "Numéro mois", 1)))
   Loop Until n >= 1 And n <= 12
   m = n - 1: o = n + 1

   Do       'quelle année ? (stocké dans a)
      a = Int(Val(InputBox("Quel est le numéro de l'année ?", "Numéro année", 2022)))
   Loop Until a >= 2000 And a <= 2050

   maDate = DateSerial(a, n, 1)   ' vraie date du 1er du mois n et de l'année a
   MsgBox "La date est " & Format(maDate, "mm.yyyy")  ' on applique à la vraie date maDate
                                                      ' le format mm.yyyy
                                                      ' soit le mois sur deux chiffres suivi d'un point puis l'année sur 4 chiffres
End Sub