Affecter une macro uniquement à une plage de cellule

Bonjour à tous,

Je m'excuse par avance pour ma question dont la solution va certainement vous paraître très évidente ... je débute totalement, et malgré le temps passé, je n'y arrive pas !

Voilà, je cherche à sélectionner les cellules d'une même couleur dans une plage de cellules, pour pouvoir leur affecter une autre couleur par la suite.

Sub Cellules_colorées_sélectionner()
'Pascal Engelmajer (Merci !)
Dim couleur As Integer
Dim cell As Range
Dim plage As Range
Set plage = ActiveCell
couleur = ActiveCell.Interior.ColorIndex
If couleur = xlNone Then Exit Sub
For Each cell In ActiveSheet.UsedRange
If cell.Interior.ColorIndex = couleur Then
Set plage = Union(plage, cell)
End If
Next cell
plage.Select
End Sub

Cette solution répond totalement à mon besoin mais je souhaiterai qu'il ne s'applique qu'à la plage de cellule suivante : C7:H90.

Merci par avance de votre aide

Bon dimanche !

Elodie

Bonjour,

vite fait , à tester sur ton fichier

P.

Option Explicit
Sub Cellules_colorées_sélectionner()
Dim couleur As Integer
Dim Quest
Dim Zone
Set Zone = Application.InputBox("Zone à colorer ?", Type:=8)
Quest = InputBox("couleur ? entre 1 et 42")
If Quest < 1 Or Quest > 42 Then Exit Sub
Zone.Interior.ColorIndex = Quest
End Sub

Bonjour,

For Each cell In [C7:H90]

eric

Merci beaucoup à tous les deux pour votre aide !

Bonne fin de journée