Supprimer une ligne sur deux feuilles en VBA

Bonjour

J'ai intégré ce code pour supprimer une ligne sur deux feuilles différentes. Il fonctionne parfaitement pour la première feuil1 mais pas du tout pour la seconde, feuil2

J'ai du faire une erreur !

Merci

Cdt

Ta

SUPPRIMER UNE LIGNE

Private Sub BtnSUPPRIMER_Click()

If MsgBox("Etes vous sûr de supprimer cette ligne ?", vbYesNo, "Demande de suppression") = vbYes Then

Sheets("Feuil1").Select

Rows([E39:E300].Find(CboNOM.Value).Row).EntireRow.Delete

Sheets("Feuil2").Select

Rows([E39:E300].Find(CboNOM.Value).Row).EntireRow.Delete

Unload Me

End If

End Sub

Bonsoir,

Le EntireRow est de trop, tout comme le Select, mais cela ne devrait pas empêcher ton code de fonctionner, dès lors que la recherche aboutit, bien sûr.

Cordialement.