Arréter une macro?

Bonjour a tous, je réalise un petit programme dans lequel je me trouve confonter a un petit problème.

Mon code :

Private Sub AjouterDésignation_Click()

Sheets("Paramètre").Select

If SaisieDésignation.Value = "" Then
MsgBox " Cette opération n'est pas possigble : Aucune désignation n'est écrite", vbCritical, "ATTENTION : Valeur de la désignation non existante"
Else
For i = 1 To Range("PDésignation").Rows.Count
If SaisieDésignation.Value = Range("PDésignation").Cells(i, 1).Value Then
MsgBox "La désignation :" & SaisieDésignation & " existe déja." & Chr(13) & "Merci de changé l'intitulé si vous souhaitez toujours ajouter cette désignation", vbCritical, "ATTENTION : Désignation déja existante"
Else
NL = Range("PDésignation").Rows.Count
Range("PDésignation").Cells(NL, 1).EntireRow.Select
Selection.Insert Shift:=xlDown
Range("PDésignation").Cells(NL - 1, 1).Value = SaisieDésignation.Value
End If
Next i
End If

End Sub


Explication :
Je souaiterai que ma macro s'arrète si la valeur de la combox (SaisieDésignation) a été insérer dans mon tableau.

Le problème auquel je suis confronté, c'est qui va m'insérer autant de fois la désignation que de ligne qu'avait mon tableau au début de la macro.

Merci pour votre aide.

Mouchty85