Coloriée plage

bonjour le forum

j'ai une macro qui me sert a coloré une plage de donnée sur la meme feuille,la pas de probleme mais je voudrais colorer une plage de donnée dans une autre feuille.

La plage a colorer est en feuille "Tir" aux cellules "C55:G200".

les données a prendre sont en "feuil3" aux cellules "AL9-AM9-AN9-AO9-AP9,et je ne sais comment modifier les instructions

Sub Macro15()
'
' Macro15 Macro
' prono couleur
'

'
Dim c As Range, cell As Range
Dim ws As Worksheet

Set ws = Worksheets("Tir")
Set c = ws.Range("C55:G100")
Application.ScreenUpdating = False
c.Select
c.Interior.ColorIndex = xlNone
 For Each cell In Selection 'Pour chaque cellule dans la selection
If cell.Value = ws.Range("Feuil3!AL9").Value Then 'Si la valeur = Q5 alors
cell.Interior.ColorIndex = 6 'Colorie la couleur de la cellule en jaune
End If
If cell.Value = ws.Range("Feuil3!AM9").Value Then
cell.Interior.ColorIndex = 6
End If
If cell.Value = ws.Range("Feuil3!AN9").Value Then
cell.Interior.ColorIndex = 6
End If
If cell.Value = ws.Range("Feuil3!AO9").Value Then
cell.Interior.ColorIndex = 6
End If
If cell.Value = ws.Range("Feuil3!AP9").Value Then
cell.Interior.ColorIndex = 6
End If

Next
ws.Range("J26").Select
Application.ScreenUpdating = True

    Range("AK2").Select
End Sub

merci

Bonjour

Sans fichier test

Je suis peut-être à côté de la plaque

Sub Macro15()
'
' Macro15 Macro
' prono couleur
'
Dim c As Range, cell As Range
Dim ws As Worksheet

  Application.ScreenUpdating = False
  Set ws = Worksheets("Tir")
  Set c = ws.Range("C55:G100")
  c.Interior.ColorIndex = xlNone
  With Sheets("Feuil3")
    For Each cell In c                                            'Pour chaque cellule dans la selection
      If (cell = .Range("AL9")) Or (cell = .Range("AM9")) Or _
                  (cell = .Range("AN9")) Or (cell = .Range("AO9")) Or _
                  (cell = .Range("AP9")) Then
        cell.Interior.ColorIndex = 6                              'Colorie la couleur de la cellule en jaune
      End If
    Next cell
  End With
End Sub

bonjour banzai,le forum

tu n'est pas à coté de la plaque c'est exactement ça.

merci encore

a+