Code de format à compléter

[isa44]

Bonsoir le forum,
Je bute toujours sur un problème : Je voudrais que répercuter les propriétés de la police (gras,italique,souligné, couleur) et de la cellule
(couleur intérieur et motif) de la valeur trouvé.

Comment compléter ce code trouvé sur ce forum ?


Sub Macro8()
Application.ScreenUpdating = False

NoColonne = 3
NoPremLigne = 6: NoDernLigne = 151
For L = NoPremLigne To NoDernLigne: CoulFond = Sheets("PARC").Cells(L, NoColonne).Interior.ColorIndexFor I = NoPremLigne To NoDernLigne
If Sheets("ROSE").Cells(I, NoColonne) = Sheets("PARC").Cells(L, NoColonne) Then
Sheets("ROSE").Cells(I, NoColonne).Interior.ColorIndex = CoulFond

End If
Next
Next
end sub