Private Sub CommandButton1_Click()
Dim Alpha As String
Dim c As Variant
Dim Ligne As Integer
'Dim DerniereLigne as Integer
Application.ScreenUpdating = False
Alpha = TextBox1.Value
'**** Si tu souhaites faire une recherche seulement sur une colonne, tu n'as qu'à remplacer le
'**** "Cells" par "Range("tonRange").Find ... Je ferais donc quelque chose comme ceci :
'DerniereLigne = Cells(65536,1).End(xlup).Row
'Set c = Range(Cells(1,1),Cells(DerniereLigne,1)).Find(Alpha, LookIn:=xlValues, LookAt:=xlWhole)
'Je trouve ma valeur sur la feuille
Set c = Cells.Find(Alpha, LookIn:=xlValues, LookAt:=xlWhole) 'On cherche la ligne de travail qui est déterminée par la valeur inscrite dans le Textbox
If Not c Is Nothing Then 'Si c n'est pas vide, alors ...
Ligne = c.Row 'Une fois la ligne trouvée, on conserve dans une variable le numéro de cette ligne.
Else 'Sinon, on envoie un message pour dire de saisir le mot comme il faut, tel que demandé dans le textbox
MsgBox "Vous n'avez pas inscrit le mot correctement dans le Textbox." & Chr(10) & _
" " & Chr(10) & _
"Veuilez s'il-vous-plait recommencer. Merci !", vbOKOnly + vbExclamation, "Erreur dans la saisie"
Exit Sub 'On sort de la macro puisqu'on a pas de ligne pour travailler.
End If
'Je sélectionne la cellule Premier Problème
Cells(Ligne, 1).EntireRow.Delete
Unload UserForm2
End Sub