VBA selection et copie sur choix variable

Sub RecopieMois()
Dim Mois As Integer, Ligne As Integer, I As Integer
Ligne = 4
Sheets("EDITION").Range("B4:E24").ClearContents
Mois = InputBox("Mois à traiter (en nombre)")
Sheets("EDITION").Cells(1, 3) = MoisLettre(Mois)
For I = 3 To 50 ' A adapter suivant le nombre de ligne à traiter
    If Month(Sheets("BASE").Cells(I, 2)) = Mois Then
        Sheets("EDITION").Cells(Ligne, 2) = Sheets("BASE").Cells(I, 2)
        Sheets("EDITION").Cells(Ligne, 3) = Sheets("BASE").Cells(I, 3)
        Sheets("EDITION").Cells(Ligne, 4) = Sheets("BASE").Cells(I, 4)
        Sheets("EDITION").Cells(Ligne, 5) = Sheets("BASE").Cells(I, 5)
        Ligne = Ligne + 1
    End If
Next I
End Sub
Function MoisLettre(Mois)
Select Case Mois
    Case 1
        MoisLettre = "Janvier"
    Case 2
        MoisLettre = "Février"
    Case 3
        MoisLettre = "Mars"
    Case 4
        MoisLettre = "Avril"
    Case 5
        MoisLettre = "Mai"
    Case 6
        MoisLettre = "Juin"
    Case 7
        MoisLettre = "Juillet"
    Case 8
        MoisLettre = "Août"
    Case 9
        MoisLettre = "Septembre"
    Case 10
        MoisLettre = "Octobre"
    Case 11
        MoisLettre = "Novembre"
    Case 12
        MoisLettre = "Décembre"
End Select
End Function