Sub videAvecEspace() Dіm rng Aѕ Rаngе For Eасh rng In ActiveSheet.UsedRange If rng.Value = " " Then rng.Style = "Nоtе" End If Nеxt rng End Sub
Parfois, certaines cellules sont vides, mais elles n’ont qu’un seul espace et, à cause de cela, il est très difficile de les identifier. Ce code vérifiera toutes les cellules de la feuille de calcul et mettra en surbrillance toutes les cellules qui ont un seul espace.