Sub Modif()
Dim Lig As Long, i As Long
Dim Der, DerT1 As Variant
Application.ScreenUpdating = False
Application.Calculation = xlmanual
Worksheets("données jours J").Activate
Der = Range("Tableau2")
Columns("B:B").Insert Shift:=xlToRight
Range("B2").FormulaR1C1 = "=Tableau3[[#This Row],[issue]]"
Range("D2").FormulaR1C1 = "=IF(Tableau2[[#This Row],[issue]]<>Tableau2[[#This Row],[Colonne1]],1,"""")"
For i = 2 To UBound(Der) + 1
If Cells(i, 4) = 1 Then
With Sheets("suivi")
DerT1 = .Range("Tableau1")
Lig = UBound(DerT1) + 1
.Rows(Lig & ":" & Lig).Insert Shift:=xlDown
.Cells(Lig, 1) = Cells(i, 1)
.Cells(Lig, 2) = Cells(i, 2)
.Cells(Lig, 3) = Cells(i, 3)
End With
End If
Next i
Columns("D:D").Delete Shift:=xlToLeft
Columns("B:B").Delete Shift:=xlToLeft
Application.Calculation xlautomatic
Application.ScreenUpdating = True
End Sub