2 conditions dans une textbox

bonjour

je recherche le code pour:

si textbox1 = 5 caractère et est égale au contenu d'une cellule (voir petit exemple joint)

Bonjour,

si les trois conditions sont traitées en même temps:

If Not Len(TextBox1.Text) = 5 And Not TextBox1.Text = Sheets("Feuil1").Range("A1") And Not TextBox1.Text =  Sheets("Feuil1").Range("B1") Then
        MsgBox "Alerte"
End If

Merci beaucoup, c'était ala synthaxe qui me posait probleme