SI CELLULE VIDE ALORS PASSER À LA SUIVANTE

Bonjour,

voici ma macro, elle génère un onglet pour chaque valeur contenu dans la liste "article" et lui assigne le nom de la valeur de la cellule

Sub créer_feuilles()
Dim S As Object
Dim DL As Integer
Dim TC As Variant
Dim I As Integer
Dim NO As Object

Set S = Sheets("Phases et budgets")
DL = S.Cells(Application.Rows.Count, 3).End(xlUp).Row
TC = S.Range("article")
For I = 3 To UBound(TC, 1)
On Error Resume Next
Set NO = Sheets(TC(I, 1))
If Err <> 0 Then
Err.Clear
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = TC(I, 1)
End If
On Error GoTo 0
Next I
End Sub


Ma problématique est que quand elle rencontre une cellule vide, la macro donne ouvre une feuille et lui assigne un numéro séquentiel. Cela donne donc plusieurs feuille qui n'ont pas besoin d'être.

J'ai tenté de corriger le problème avec if cell.value="" then goto next I
mais sans succès

Pourriez-vous m'aider