Bonjour, oui j'avais pas fait attention, voici le code entre balise :
Sub CopierLeTDB_Bis()
Dim C As Range
Dim nb As Integer, i As Integer, nbA01 As Integer, TotalA01 As Integer, j As Integer, NextRow As Range
Dim ThisValue As String
Dim classeur As Workbook
Dim LaFeuille...