Sub Macro2()
Dim stRange As String
Dim d As Range, f As Range
Dim DateDebut As Date
Dim DateFin As Date
stRange = ActiveCell.Address
DateDebut = CDate(UserForm1.TextBox1)
DateFin = CDate(UserForm1.TextBox2)
wsPL.Select
Set d = Columns(1).Find(DateDebut, LookIn:=xlValues)
If Not d Is Nothing Then BoxTop = d.Top
Set f = Columns(1).Find(DateFin, LookIn:=xlValues)
If Not f Is Nothing Then BoxLng = f.Top + f.Height - BoxTop
Range(stRange).Select
BoxLar = ActiveCell.Width - 1
BoxGau = ActiveCell.Left + 1
ActiveSheet.Shapes.AddTextbox(msoTextOrientationHorizontal, BoxGau, BoxTop, BoxLar, BoxLng).Select
Selection.Characters.Text = "TEST"
Selection.ShapeRange.Fill.ForeColor.SchemeColor = Cells(3, ActiveCell.Column).Interior.ColorIndex
Selection.ShapeRange.Fill.Transparency = 0.5
Selection.Name = "txbox1"
End Sub