Microsoft 365 changer de valeur avec un clique

Sub ChangerH3()
   ActiveSheet.[H3].Value = Chr$((Asc(ActiveSheet.[H3].Value) - 64) Mod 4 + 65)
   End Sub

Sub ChangerH3()
   [h3] = Split("A B C D")((Asc([h3]) - 64) Mod 4)
End Sub

Sub Suivant()
Dim xrg As Range, i&
   Set xrg = Range("a1").ListObject.ListColumns(1).Range
   For i = 2 To xrg.Count
      If xrg(i, 1).Value = [h3].Value Then Exit For
   Next i
   If i >= xrg.Count Then i = 2 Else i = i + 1
   [h3].NumberFormat = Cells(i, 1).NumberFormat: [h3] = Cells(i, 1)
End Sub

[B5] = Split("A B C M T")((Asc([B5]) - 64) Mod 5)