Bonjour,
A mettre dans un module standard :
Option Explicit
Sub CopierColonneTcd()
Dim I As Integer, J As Integer, DerniereLigne As Integer, DerniereColonne As Integer
Dim AireProd As Range, AireTcd As Range
With Sheets("Indicateurs production")
DerniereLigne = .Cells(.Rows.Count, 1).End(xlUp).Row
DerniereColonne = .Cells(2, .Columns.Count).End(xlToLeft).Column + 1
Set AireProd = .Range(.Cells(2, 1), .Cells(DerniereLigne, 1))
End With
Set AireTcd = Sheets("Heure std jour").PivotTables(1).RowRange
For I = 1 To AireProd.Count
For J = 1 To AireTcd.Count
If AireProd(I) = AireTcd(J) Then
With AireProd(I).Offset(0, DerniereColonne - 1)
.Value = AireTcd(J).Offset(0, 1)
.NumberFormat = "#,##0.00"
End With
End If
Next J
Next I
Set AireProd = Nothing: Set AireTcd = Nothing
End Sub