Copier/Coller + couleur

Bonjour,

J'ai une petite macro qui me copie une plage de données vers une autre plage sur la première colonne vide trouvée.

Ce que je souhaiterai c'est que la macro me colorie la colonne après avoir copié les données...

Pouvez-vous m'aider svp ?

Sub Copy()

End SubJe ne sais pas si je me suis bien exprimé...

Merci de votre aide !

Pascal

Bonjour

A tester

Sub Copy()
  Sheets("Synthese").Select
  If Application.CountA(Range("B2:B34")) > 0 Then
    Range("B2:B34").Copy Cells(40, Cells(40, Columns.Count).End(xlToLeft).Column + 1)
    Cells(40, Cells(40, Columns.Count).End(xlToLeft).Column).Resize(33, 1).Interior.ColorIndex = 4
    MsgBox "Les données ont été copiés"
  Else
    MsgBox "Il n' y a pas de données à copier"
  End If
End Sub    

Parfait !

Comme d'habitude Banzai !

Au fait, après des heures de recherche sur mon code, j'ai trouvé pourquoi ma macro me copiait tout de même des colonnes vides

Sur une de mes instructions, je demandais à ma macro de me copier une plage qui contenait des formules, donc même si le résultat était nulle et n'affichait rien, il y avait quand même les formules...

J'ai trouvé une solution de contournement et tout fonctionne maintenant, avec la couleur en plus !

Bonne journée à tous !