Dim Cell As Range
With Sheets("WELCOME")
For Each Cell In Union(.Range("C26:K26"), .Range("C32:L32"), .Range("C36:L36"))
If Cell.Value > 90 Then
Cell.Value = 90
End If
Next Cell
End With
Sub test()
Dim Cell As Range
For Each Cell In Sheets("WELCOME").Range("C26:K26[COLOR="Blue"][B],[/B][/COLOR]C32:L32[B][COLOR="Blue"],[/COLOR][/B]C36:L36")
If Cell.Value > 90 Then
Cell.Value = 90
End If
Next Cell
End Sub
Comme tu le vois, il suffisait juste de remplacer le signe "&" par une virgule et placer les apostrophes au bonne endroit.
Sinon, tu remarqueras également que j'ai rajouté des sauts de lignes et des retraits de paragraphe. Cela ne change rien du tout au code, mais cette présentation rend ton code plus facile à lire par le programmeur et l'utilisateur
Bonne soirée
PS. : code proposé testé, il fonctionne
Edition : Salut Hasco, je constate qu'on a eu la même idée, sauf que tu as dégainé le plus vite lol