Programme pour déterminer le type de verbe

Private Sub Worksheet_Change(ByVal Target As Range) 'au changement dans l'onglet
Dim G3 As Worksheet 'déclare la variable G3 (Groupe 3)
Dim TV As Variant 'déclare la variable TV (Tableau des Verbes)
Dim I As Integer 'déclare la variable I (Incrément)
Dim TEST As Boolean 'déclare la variable TEST
Dim MSG As String 'déclare la variable MSG (MeSsaGe)

If Target.Address <> "$A$1" Then Exit Sub 'si le changement a lieu ailleurs qu'en A1, sort de la procédure
If Target.Value = "" Then Exit Sub 'si A1 est effacée. sort de la procédure
Set G3 = Worksheets("Groupe 3") 'définit l'onglet G3
'condition : si les deux derniers caractères de la valeur de A1 (convertis en majuscule) valent "ER", message, sort de la procédure
If UCase(Right(Target.Value, 2)) = "ER" Then MsgBox "Ce verbe est du 1er groupe !": Exit Sub
TV = G3.Range("A1").CurrentRegion 'définit le tableau des verbers TV
For I = 1 To UBound(TV, 1) 'boucle sur toutes les lignes I du tableau des verbes TV
    'si la valeur de A1 (convertie en majuscule) est égale à la valeur de la donnée ligne I colonne 1 de TV (convertie aussi) définit la variable TEST, sort de la boucle
    If UCase(TV(I, 1)) = UCase(Target.Value) Then TEST = True: Exit For
Next I 'prochaine ligne de la boucle
MSG = IIf(TEST = True, "Verbe du 3ème groupe !", "Verbe du 2ème groupe !") 'définit le message MSG en fonction de la variable MSG
MsgBox MSG 'affiche le message MSG
Range("A1").Select 'sélectionne la cellule A1
End Sub