Bonsoir Jo, le Forum
En fait ton dimensionnement de Range est correct, mais si tu n'as aucune cellules remplies dans la Colonne "A"... Et bien VBA va descendre jusqu'en bas.... Soit à la 65536ieme cellule et une a une....
Essaie en agissant à l'inverse, c'est à dire en montant :
Sub Test()
Dim C As Range
With Sheets("Sheet1")
For Each C In .Range(.Cells(2, 1), .Cells(65536, 1).End(xlUp))
C.Interior.ColorIndex = 3
Next
End With
End Sub
Mais tu auras encore un hic si tu n'as rien en colonne A... Mais moins grave... Juste une action en A1 et A2....
ou alors une simple ligne de test, pourrait être ta solution mais vu que tu n'en veux pas...
Enfin je te la donne quand même :
If .Cells(2, 1) = "" Then Exit Sub
Bonne Soirée
@+Thierry