Eviter les doublons dans textbox

Private Sub Textbox1_Change()
If TextBox1 <> "" And Not IsNumeric(TextBox1) Then TextBox1 = ""
End Sub

Private Sub CommandButton1_Click()
'Sheet1 et Sheet2 sont les CodeName des feuilles
With TextBox1
  If .Text = "" Then .SetFocus: Exit Sub
  If Application.CountIf(Sheet2.[D11:F11], CDbl(.Text)) Then _
    MsgBox "Déja mis": .SetFocus: .SelStart = 0: .SelLength = 99: Exit Sub
  Sheet1.[C4] = CDbl(.Text)
End With
Unload Me
End Sub

Private Sub CommandButton1_Click() 'bouton "Valider" de l'UserFOrm2
Dim cel As Range 'déclare la variable cel

For Each cel In Sheets("prévisions").Range("D11:F11") 'boucle sur la plage D11:F11 de l'onglet "prévisions"
    If Me.TextBox1.Value = CStr(cel.Value) Then 'condition : si la valeur de la TextBox1 est égale à la valeur de la cellule el convertie en texte
        MsgBox "Nombre non valide ! Veuillez recommencer." 'message
        With Me.TextBox1 'prend en compte la TextBox1
            .SelStart = 0 'début de la sélection
            .SelLength = Len(.Value) 'longueur de la sélection
            .SetFocus 'place le curseur dans la TextBox1
        End With 'fin de la prise en compte de la TextBox1
        Exit Sub 'sort de la procédure
    End If 'fin de la condition
Next cel 'prochaine cellule de la boucle
Worksheets("sheet1").Range("C4").Value = TextBox1.Value
Unload Me
End Sub