Sub test_pierrejean()
Feuil2.[A:K].Copy [A1] 'initialisation
t = Timer
Set tablo = Range("A2:E" & Range("A" & Rows.Count).End(xlUp).Row)
Set tablo1 = Range("G2:K" & Range("G" & Rows.Count).End(xlUp).Row)
For n = tablo.Rows.Count To 1 Step -1
For m = tablo1.Rows.Count To 1 Step -1
If tablo(n, 1) = tablo1(m, 1) And tablo(n, 3) = tablo1(m, 3) And tablo(n, 4) = tablo1(m, 4) Then
Range("A" & n + 1 & ":E" & n + 1).Delete Shift:=xlUp
Range("G" & m + 1 & ":K" & m + 1).Delete Shift:=xlUp
End If
Next
Next
MsgBox "Durée " & Format(Timer - t, "0.00 \s")
End Sub