En fonction d'une valeur, la macro s'arrête (avec une action) ou continue

Sub Ma_Macro()
'Recherche les modèles correspondant
    Range("G1").FormulaR1C1 = "Modèle"
    Columns("G:G").Select
    Selection.NumberFormat = "General"
    Range("G2").FormulaLocal = "=SI(ESTERREUR(RECHERCHEV(D2;Criteres!A:B;2;FAUX));Mod_a_creer;RECHERCHEV(D2;Criteres!A:B;2;FAUX))"
    Range("G2").AutoFill Destination:=Range("G2:G" & Range("A65536").End(xlUp).Row)
'Compte le nombre d'élément et le nombre de modèle trouvé afin de vérifier que tous les modèles soient renseignés
    Range("G1").End(xlDown).Offset(1, 0).FormulaLocal = "=NB.SI(G2:G" & Range("A65536").End(xlUp).Row & ";Mod_a_creer)"
'Mettre les modèles non créés en rouge
    Range("G1").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.FormatConditions.Delete
    Selection.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, _
        Formula1:="=""Modèle à créer"""
    Selection.FormatConditions(1).Interior.ColorIndex = 3
'indiquer à l'utilisateur que tous les modèles doivent être créés
[COLOR="Blue"][B]Jusqu'ici, tout fonctionne[/B][/COLOR]
    Dim Nb As String
    Nb = Range("G1").End(xlDown).Value 
[COLOR="Blue"][B]Si Nb >0 alors 1 - MsgBox   2 - Arrêt de la macro  
3 - supprimer la valeur Nb, soit le contenu de la dernière cellule de la
colonne G [/B][/COLOR]
   If Nb > 0 Then MsgBox "Attention!!! Vous devez créer les " & Nb & " couleurs manquantes"
    If Nb > 0 Then Exit Sub [COLOR="Blue"][B]Ca fonctionne jusqu'ici[/B][/COLOR]
    If Nb > 0 Then Range("G1").End(xlDown).Clear [COLOR="Blue"][B]Mais cet argument ne marche pas[/B][/COLOR]
Range("F2") = "toto"
[COLOR="Blue"][B]Toto, c'était juste pour vérifier que si Nb<0
alors la macro continuait. C'est le cas[/B][/COLOR]
End Sub