Re : Soustraction de deux colonnes avec tab.
Sub test4()
Dim LastLig As Long, i As Long
Dim Tb
Application.ScreenUpdating = False
With Worksheets(1)
LastLig = .Cells(.Rows.Count, 1).End(xlUp).Row
For i = 2 To LastLig
If IsDate(Cells(i, 32)) And IsDate(Cells(i, 31)) Then Cells(i, 29) =...