Sub Test()
tablo = Sheets("DATAA").Range("AF2:AF" & Sheets("DATAA").Range("AF65536").End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
tablo(n, 1) = WorksheetFunction.Round(tablo(n, 1), 0)
Next n
Sheets("DATAA").Range("AF2").Resize(UBound(tablo, 1)) = tablo
Sheets("TCD").PivotTables("Tableau croisé dynamique1").PivotCache.Refresh
End Sub