Corrigé 4.3 Contrôler la saisie d’une consonne ou voyelle
Sub ConsonneVoyelle()
Dim strConsonne As String * 1
Dim strVoyelle As String * 1
Dim varTestSaisie As Variant
Dim varChoix As Variant
varTestSaisie = InputBox("Saisir une consonne ou voyelle")
If Not VBA.IsNumeric(varTestSaisie) Then
varChoix...