Problème code VBA

Bonjour

Je suis entrain de faire un démineur sous VBA et je bloque pour faire afficher l'ensemble des cases vides lorsque je clique sur une case vide.

Voici mon code pour dévoiler l'ensemble des cases autour d'une case vide

Le souci ce code me fait beuger Excel car le code recommence indéfiniment

Je ne trouve pas mon erreur, voici mon code

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
 If Not Intersect(Selection, Range("A1:Z18")) Is Nothing Then
 Selection.Interior.ColorIndex = xlNone
End If

Dim j As Integer
Dim i As Integer

i = Target.Row
j = Target.Column

If Target.Value = "0" Then
Target.Interior.ColorIndex = xlNone
Cells(i - 1, j - 1).Select
Cells(i - 1, j).Select
Cells(i - 1, j + 1).Select
Cells(i, j + 1).Select
Cells(i + 1, j - 1).Select
Cells(i + 1, j).Select
Cells(i + 1, j + 1).Select
Cells(i, j - 1).Select

End If

Merci d'avance

Bonjour et bienvenu(e)

Ton fichier serait utile afin de trouver une solution

Le voilà, je suis novice en VBA donc il y'a peut être pas mal d'erreur

Merci

Bonjour

Regardes si cette approche te convient

Ca m'a un peu aidé merci.

J'ai modifié les lignes mais je voudrais quand je clique sur un "0" que les 8 cases autour s’affiche ( c'est actuellement le cas ) mais si il y'a un autre zéro dans les 8 nouvelles cases qui se sont affichés alors les 8 cases autour de ce nouveau zéro s'affiche etc Jusqu'a avoir que des 1, 2 ou 3 comme un vrai démineur

Je sais pas si cela est possible

Merci d'avance

Bonsoir

A vérifier

Bonjour,

Merci beaucoup pour votre travail !

Bonne continuation et peut être à Bientot