Microsoft 365 changer de valeur avec un clique

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