Private Sub CommandButton3_Click()
If Me.TextBox2 = "" Then
MsgBox "Saisir un Lien!"
Me.TextBox2.SetFocus
Exit Sub
End If
Set temp = f.[F:F].Find(Me.TextBox2, LookIn:=xlValues)
If Not temp Is Nothing Then
If Not temp Like "*" & "Néant" Then
If temp.Row <> ligne Then
MsgBox "Ce Lien Existe déjà!" ' SAUF si c'est le mot "Néant"
Exit Sub
End If
End If
End If
End Sub