Private Sub cmdButValider_Click()
Dim tbl As Variant
Dim mm As String
tbl = Array("Janvier", "Fevrier", "Mars", "Avril", "Mai", "Juin", "Juillet", "Aout", "Septembre", "Octobre", "Novembre", "Décembre")
If LabelDate <> "" And TXT_ValeurDuMouvement <> "" And CBX_Client <> "" And CBX_TypeDePrestation <> "" Then
mm = tbl(Month(LabelDate.Caption) - 1)
Sheets(mm).Select
Else
MsgBox "Tout les champs sont obligatoirs"
End If
End Sub