Le commentaire à côté de ma super ligne :
If Grille(Ligne, Colonne) + Grille(Ligne - 1, Colonne) + Grille(Ligne - 2, Colonne) + Grille(Ligne - 3, Colonne) = -4 Then
est faux bien sûr.
J'ai oublié de le mettre à jour.
Ca risque d'être plus chaud pour les lignes et les diagonales...
A suivre donc!