Sub cellulesmotorthographie() Dim rng As Range For Each rng In ActiveSheet.UsedRange If Not Application.CheckSpelling(word:=rng.Text) Then rng.Style = "Bad" End I f Next rng End Sub
Si vous avez du mal à vérifier toutes les cellules pour les fautes d’orthographe, ce code est pour vous. Il vérifiera chaque cellule de la sélection et mettra en surbrillance la cellule où se trouve un mot mal orthographié.