Voici la procédure que j'ai développé si j'ai bien compris ta demande naturellement.
Sub test()
Sheets("matrice").Select
Sheets("matrice").Copy After:=Sheets("matrice")
ac = "ApparitionCOUPURE SECTEUR"
dc = "DisparatioCOUPURE SECTEUR"
ar = "ApparitionRETOUR SECTEUR"
compteur = 2
fin = 2000
ancienne_valeur = Range("B" & compteur).Value
Choix_A = Range("H" & compteur).Value
compteur = compteur + 1
While compteur <= fin
nouvelle_valeur = Range("B" & compteur).Value
If nouvelle_valeur = ancienne_valeur Then
Choix_B = Range("H" & compteur).Value
If Choix_A = ac And Choix_B = dc Then
Rows(compteur & ":" & compteur).Select
Selection.Delete Shift:=xlUp
fin = fin - 1
Choix_B = ""
compteur = compteur - 1
End If
If Choix_A = dc And Choix_B = ac Then
Rows(compteur - 1 & ":" & compteur - 1).Select
Selection.Delete Shift:=xlUp
fin = fin - 1
Choix_A = ""
compteur = compteur - 1
End If
If Choix_A = ac And Choix_B = ar Then
Rows(compteur & ":" & compteur).Select
Selection.Delete Shift:=xlUp
fin = fin - 1
Choix_B = ""
compteur = compteur - 1
End If
If Choix_B = ac And Choix_A = ar Then
Rows(compteur - 1 & ":" & compteur - 1).Select
Selection.Delete Shift:=xlUp
fin = fin - 1
Choix_A = ""
compteur = compteur - 1
End If
If Choix_A = "" Or Choix_B = "" Then
Else
If Choix_B = Choix_A Then
Rows(compteur & ":" & compteur).Select
Selection.Delete Shift:=xlUp
fin = fin - 1
compteur = compteur - 1
End If
End If
Else
Choix_A = ""
Choix_B = ""
ancienne_valeur = Range("B" & compteur).Value
Choix_A = Range("H" & compteur).Value
If Choix_A = "" Then
fin = compteur
End If
End If
compteur = compteur + 1
Wend
End Sub