Utilisation d'une variable boléenne

Bonsoir

je m'entraine à l'utilisation de variables boléennes , mais je ne pense peut etre pas avoir compris comment ca marche

voici le bout de code que j'ai fais ...

Option Explicit

Sub boule()

Dim x As Boolean

If x = True Then
Range("a1") = "hello"
x = False
Else
Range("a1") = "good bye"
x = True
End If
End Sub

je me dis qu'il dois certainement manquer quelque chose ... ou alors je ne maitrise pas le truc

Pourriez vous me dire ce qui cloche ?

Merci

Bonsoir

En expliquant le résultat à obtenir

Pour moi

Même si tu lances 500 fois la macro tu n'auras jamais "hello"

Essayes

Option Explicit

Sub boule()
Dim I As Integer
Dim x As Boolean

  For I = 1 To 10
    If x = True Then
      Range("a1") = "hello"
      x = False
    Else
      Range("a1") = "good bye"
      x = True
    End If
    Application.Wait Now + TimeValue("0:00:01")
  Next I
End Sub

Merci banzai !! je savais bien qu'il manquait quelque chose .. le moyen de reboucler ! merc