Copie motif de fond de cellule format de police

Bonjour à tous,

comment copier le motif d'un fond de cellule et le format de police ( gras, souligné, italique, couleur) ?


Private Sub CommandButton1_Click()
Application.ScreenUpdating = False

NoColonne = 3
NoPremLigne = 6: NoDernLigne = 151
For L = NoPremLigne To NoDernLigne: CoulFond = Sheets("PARC").Cells(L, NoColonne).Interior.ColorIndex
For 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