Private Sub CommandButton1_Click()
Dim ligne As Long
Dim Tot As Range, X As Integer
With Sheets("EDF").Range("B2:B2000")
Set Tot = .Find(UserForm2.ListBox1.Text)
For X = 0 To 3
If Range("A" & Tot.Row + 7).Offset(X, 0) = "" Then
Range("A" & Tot.Row + 7).Offset(X, 0) = UserForm2.TextBox1.Text
Exit For
End If
Next X
End With
End Sub