Sub test()
Dim k&, j%
Application.ScreenUpdating = False
Application.DisplayAlerts = False
With Sheets("Suivi")
If IsEmpty(Cells(1, 1)) Then .Rows("2:" & .Range("A65536").End(xlUp).Row).Delete
End With
Sheets.Add
ActiveSheet.Name = "Feuil1"
Sheets("Team Nord Sem 01_02").Select
Range("A2:I" & Range("A65536").End(xlUp).Row - 1).Copy
Application.Goto Sheets("Feuil1").Range("A1")
ActiveSheet.Paste
Sheets("Team Nord Sem 03_04").Select
Range("A2:I" & Range("A65536").End(xlUp).Row - 1).Copy
Application.Goto Sheets("Feuil1").Range("A" & Range("A65536").End(xlUp).Row + 1)
ActiveSheet.Paste
Cells.Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
For k = Range("A65536").End(xlUp).Row To 1 Step -1
If Cells(k, 1).Value = Cells(k - 1, 1).Value Then
Rows(k - 1).Insert
Cells(k - 1, 1).Value = Cells(k, 1).Value
For j = 2 To 9
Cells(k - 1, j).Value = Cells(k - 1, j).Value - Cells(k, j).Value
Next j
Rows(k).Delete
Rows(k).Delete
k = k - 1
End If
Next k
ActiveSheet.UsedRange.Copy
Application.Goto Sheets("Suivi").Range("A2")
ActiveSheet.Paste
Sheets("Feuil1").Delete
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub