Bonjour à tout le Forum
J'ai rentré ce code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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