Bonjour à tous,
Oui, la feuille source contient des MFC sur les cellules à copier.
Un essai ...
Option Explicit
Sub Copie()
Dim r As Range
Dim c As Range
Dim X As Integer
Set r = Worksheets("Gestion des personnels").Range("C7:C49")
Set c = Worksheets("Bulletin").Range("C3")
r.Copy
c.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
Application.CutCopyMode = False
Worksheets("Bulletin").Range("C3:AS3").Orientation = 90
For X = 1 To 42
c.Cells(1, X).Interior.Color = r.Cells(X, 3).DisplayFormat.Interior.Color
Next X
End Sub
ric