copie format et valeur

Bonsoir

j'ai fait une marcro du type:

Range("B8:J8").Select
Application.CutCopyMode = False
Selection.Copy
Range("L12").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False
End Sub

mais je voudrais aussi copier le format : donc

Selection.PasteSpecial Paste:=xlFormats, Operation:=xlNone,
SkipBlanks:= _ False, Transpose:=False

mais comment faire les deux en meme temps (xlValues ET xlFormats) car j'ai des formules et je ne veut les recopier

Merci

Joss