Oops I a manqué l'erreur évidente - voir ci-dessous :
Si parti (. Cellules (I, 11), 11) = « 115528 » puis. Rangées (i).EntireRow.Delete
Si parti (. Cellules (I, 11), 11) = « 124957 » puis. Rangées (i).EntireRow.Delete
devrait avoir été :
Si parti (. Cellules (I, 11), 6) = « 115528 » puis. Rangées (i).EntireRow.Delete
Si parti (. Cellules (I, 11), 6) = « 124957 » puis. Rangées (i).EntireRow.Delete