Message d'erreur : Variable objet ou Variable de bloc With non définie

Bonjour à tout le Forum
J'ai rentré ce code

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click() With Sheets("EDF") Dim ligne As Long Dim Tot As Range   ligne = .Range("B" & .Rows.Count).End(xlUp).Row Set Tot = .Range("b1:b" & ligne).Find(UserForm2.ListBox1.Text) .Range("A" & Tot.Row + 7) = UserForm2.TextBox1.Text End With End Sub

---

Il doit me permettre de rechercher un texte dans mon tableau ( identique à celui selectionner dans ma listBox1)
Et ensuite inserer dans la cellule A , 7 lignes plus bas le texte de la TextBox.

Or cela plante et m'affiche pour la dernière ligne de code
"Variable objet ou Variable de bloc With non définie

Quelqu'un pourrait il m'aider
Merci par avance

Salut,

Le problème doit subvenir si ta recherche ne renvoi rien :

Code:

---

1 2 3 4 5

If Not Tot Is Nothing Then .Range("A" & Tot.Row + 7) = UserForm2.TextBox1.Text Else MsgBox "introuvable" End If

---

Salut ! c'est bon j'ai trouvé.

Le probleme est que j'avai fusionné Col B et Col C et donc la recherche ne se faisait pas. Deplus j'ai corrigé mon code comme suit et ça fonctionne ( enfin pour le moment)

Code:

---

1 2 3 4 5 6 7 8 9 10

Private Sub CommandButton1_Click()   Dim ligne As Long Dim Tot As Range   With Sheets("EDF").Range("B2:B2000") Set Tot = .Find(UserForm2.ListBox1.Text) Range("A" & Tot.Row + 7) = UserForm2.TextBox1.Text End With End Sub

---