coloration de cellule

Bonjour ben et le forum,

Essaye ceci :

Sub Coloration()

Dim oRge As Range
Dim iRow As Integer
Dim oWsh As Worksheet

For Each oWsh In ThisWorkbook.Worksheets
iRow = oWsh.Range("A65536").End(xlUp).Row
For Each oRge In oWsh.Range("T1:T" & iRow)
If IsEmpty(oRge) Then
oRge.Interior.ColorIndex = 6
End If
Next oRge
Next oWsh

End Sub


Slts

wally

salut wally !
je viens de tester ca fait rien du tout, je vais essayé de chercher tu m'a déja donnée une bonne piste
J'ai beaucoup de chance je tombe toujours sur toi !!
Merci encore pour ton coup de main
@ bientot

ca y es j'ai trouvé ca marche !!!
Il fallait juste que j'active le classeur concerné
Merci