Rebonjour ok super
merci beaucoup
tu peux me dire ou faire le changement car j'ai plus fichier semblable
With ws_trame
.Cells(4, 7).Value = tableau(8) ' Rajouter le .value'
.Cells(5, 3) = nomserie
If ajout = 0 Then
.Cells(7, 5) = ws_prod.Range("Q" & k)
.Range("G7") = ws_prod.Range("P" & k)
Else