XL 2010 creation d'une msgbox pour valider des données

'demande quel est le mois à traiter
mois = InputBox("QUEL MOIS VOULEZ VOUS VALIDER ? ", vbQuestion)


'Recherche de la valeur saisie en ligne 1
On Error Resume Next
Sheets("Feuil3").Range("D1:Q1").Find(mois, LookIn:=xlValues).Select
If Err <> 0 Then
    MsgBox " mois mal saisi"
    Exit Sub
End If
On error goto 0
'on séléctionne la première cellule ou il y a une données statistique
ActiveCell.Offset(2, 0).Select

' on sélectionne l'ensemble des données statistiques du mois souhaité
Range(ActiveCell, ActiveCell.Offset(99, 0)).Select

'copie collage spécial valeur
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Range("D3").Select

End Sub