Insertion d'une instruction de couleur de police d'ecritre

Bonjour

je souhaiterai pouvoir ajouter un critère de couleur (noire) dans le code suivant en placant l'instruction "

Font.colorIndex:=1

"

apres "

Transpose:=true

" comme suit , mais cela ne marche pas

With Sheets("Feuil1")
   .Range("E11:E15").Copy
    Sheets("Feuil2").Range("D" & Rows.Count).End(xlUp).Offset(1, 0).PasteSpecial _
        Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True,   Font.colorIndex:=1
End With

une erreur se produit à l'insertion de cette donnée

Comment pourrais faire ?

Merci pour vos réponses

Salut Rocket4

Normalement quand tu codes l'éditeur VBA t'indique les propriétés qui existe pour une instruction !?

Et Font.ColorIndex ne fait pas partie de l'instruction PasteSpecial

Voici le code à tester

  Sheets("Feuil1").Range("E11:E15").Copy
  With Sheets("Feuil2").Range("D" & Rows.Count).End(xlUp).Offset(1, 0)
    .PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    .Font.ColorIndex = 1
  End With

A+

Merci pour ta réponse , j'ai testé cela et en effet ca ne marche pas ! j'aurais quand meme tenté

Re,

Effectivement,seule la cellule de la colonne D se mets en noir, je n'y avait pas pensé

Utilise ce code

  Dim NLig As Long
  Sheets("Feuil1").Range("E11:E15").Copy
  With Sheets("Feuil2")
    NLig = .Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Row
    .Range("D" & NLig).PasteSpecial _
      Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    .Range("D" & NLig & ":H" & NLig).Font.ColorIndex = 1
  End With

A+

Merci à toi !! ca marche !