J'ai remplacer les ... par les conditions mais j'ai une erreur 13 sur les conditions !
Option Explicit
Sub PrecadreUniversel()
Dim RngDon As Range, TBrut(), LBrut&, TFina(), LFina&, TPein(), LPein&, C&
Set RngDon = Intersect([B2:I1000000], ActiveSheet.UsedRange)
TBrut = RngDon.Value
ReDim...