Re,
Non Claude tu ne peux pas.
Le seul moyen pour faire ce que tu demandes est de procéder comme suiti :
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Not Intersect(Target, Range("F5")) Is Nothing Then
call macro1
End sub
Sub Macro1()
With Sheets("Feuil1").Range("C4:D8")
With .Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.Color = 65535
.TintAndShade = 0
.PatternTintAndShade = 0
End With
End With
End If
End Sub
La macro private placée en feuille 2 tandis que la Sub Macro1 est placée dans un module.
C'est d'ailleurs ce que je fais habituellement pour mes applis personnelles.
Amicalement
dan