Ajouter une couleur

bonsoir

je me trouve un peu embeté devant une situation que je n'arrive pas à résoudre

j'ai le bout de code suivant :

Application.ScreenUpdating = False
Workbooks("COMPTA2.xls").ActiveSheet.Range("A52").Copy
Workbooks("COMPTA1.xls").Activate
With Sheets("Mouvements comptables")
    DLig = .Range("M" & Rows.Count).End(xlUp).Row

     If DLig < 8 Then DLig = 8

   .Range("M" & DLig + 1).PasteSpecial _
        Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True

    End With

    Application.CutCopyMode = False

Ce que je voudrai c'est une fois que ma cellule A52 est copiée dans la feuille "Mouvements comptable " que l'interieur de cette cellule

de destination ait un fond de couleur rouge

j'ai essayé de placer l'instruction suivante

 .Interior.colorIndex=3 

apres

 Transpose:=True

je rencontre toujours une erreur

Merci pour toute vos suggestions

Bonjour

A essayer

Sub test()
  Application.ScreenUpdating = False
  With Workbooks("COMPTA2.xls").ActiveSheet.Range("A52")
    .Copy
    With Workbooks("COMPTA1.xls").Sheets("Mouvements comptables")
      DLig = .Range("M" & Rows.Count).End(xlUp).Row
      If DLig < 8 Then DLig = 8
      .Range("M" & DLig + 1).PasteSpecial _
            Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
    End With
    .Interior.ColorIndex = 3
  End With
  Application.CutCopyMode = False
End Sub

Merci pour ta réponse Banzai , j'ai essayé ta proposition le code marche , mais j'ai pas la couleur sur la cellule de destination

j'ai bien une couleur rouge mais elle est appliquée sur la cellule à copier et non sur la cellule de destination dans la feuille

mouvement de comptabilité

Bonjour

J'avais lu en travers

essayes

Sub test()
  Application.ScreenUpdating = False
  Workbooks("COMPTA2.xls").ActiveSheet.Range("A52").Copy
    With Workbooks("COMPTA1.xls").Sheets("Mouvements comptables")
      DLig = .Range("M" & Rows.Count).End(xlUp).Row
      If DLig < 8 Then DLig = 8
      .Range("M" & DLig + 1).PasteSpecial _
            Paste:=xlValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
      .Range("M" & DLig + 1).Interior.ColorIndex = 3
    End With
  Application.CutCopyMode = False
End Sub

Merci à toi Banzai ! ca marche !! bonne fin de journée