Problème avec Boucle

bonjour
je rencontre une difficulté que je n'arrive pas à résoudre.
voici le code

Sub VerifierLesRames()
Dim sh As Worksheet: Dim c As Range

For Each c In Feuil3.Range("F1:F14")
If c = "" Then Exit Sub
For Each sh In Worksheets
With sh
If .Range("A1").Value = .Name And .Range("B1").Value = "PARTIE" Then
Application.DisplayAlerts = False
.Delete
Application.DisplayAlerts = True

ElseIf .Name = c Then
c = ""
Else

With Sheets.Add
.Name = c
.Tab.ColorIndex = 6
.Range("A1") = c
With [A1].Font
.Name = "Cambria"
.Size = 24
.Bold = True
End With
With [A1]
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.EntireColumn.AutoFit
End With
End With
End If
End With
Next sh
Next c
End Sub

ce que je souhaite, c'est de pouvoir vérifier les onglets existants par rapport à la liste en Feuil3.Range("F1:F14"). Puis si elles existent de les supprimer dans la liste en Feuil3, pour ensuite créer les feuille selon les valeurs restantes.

je vous mets le lien du fichier:
https://mon-partage.fr/f/DcVEbNCj/
Merci d'avance.