Controle existence onglet

Bonjour,
Je travaille actuellement sous excel et j'aimerais pouvoir supprimer un certains nombre d'onglet grâce à une macro. Voici le fonctionnement de la macro :
Le fichier excel contient un certains nombres de feuilles qui évoluent dans le temps. Avec une première macro, je créé un certain nombre d'onglet dont les noms sont dans une liste. Je ne crée pas autant de feuille que de nom dans la liste mais en prend uniquement certains dans cette liste.

Je souhaite pouvoir supprimer ensuite les onglets que j'ai crée. Voici la macro :

Sub SuppressionsOnglet()
DernLigne = Sheets("Rapport").Range("AX" & Rows.Count).End(xlUp).Row

Application.DisplayAlerts = False

a = 1
'Analyse des onglets
For i = 1 To DernLigne
NomAg = Sheets("Rapport").Cells(i, 50)
For j = 1 To Worksheets.Count + 1
If Sheets(j).Name = NomAg Then
Sheets(NomAg).Delete
Else
End If
Next j
Next i

Application.DisplayAlerts = True

Malheureusement, j'ai systématiquement un message d'erreur quand un nom de la liste n'est pas un nom d'onglet. Or, d'après la "logique", la condition if devrait m'empecher de trouver ce genre de conflit.

Merci de votre aide,
Cordialement,