par contre ce que je peux faire c'est ça tripler la macro :)
Sub Alerte()
Dim Ligne As Long, C As Range, Plage As Range, Tabl As Variant, I As Long, Teste As Boolean
Dim Tot As Long
With Sheets("Agr")
Set Plage = .Range("J2", .Cells(.Rows.Count, 10).End(xlUp))
End With
With...