Sub Cherche()
Coldate1 = '': Coldate2 = ''
For Each Cel In Sheets('données').Range('C20:' & Sheets('données').Range('C20').End(xlToRight).Address)
If Cel = Date1 Then Coldate1 = Left$(Cel.Address(0, 0), (Cel.Column < 27) + 2)
If Cel = Date2 Then Coldate2 = Left$(Cel.Address(0, 0), (Cel.Column < 27) + 2)
If Coldate1 <> '' And Coldate2 <> '' Then Exit For
Next Cel
End Sub
Private Sub CommandButton1_Click()
Dim Ligne As Byte
Sheets('données').Activate
Range('a99').Select
ActiveCell.FormulaR1C1 = 'VL base 100'
Application.Union(Sheets('données').Range('A20:B20'), Sheets('données').Range(Coldate1 & 20 & ':' & Coldate2 & 20)).Select
selection.Copy
Range('a100').Select
ActiveSheet.Paste
For w = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(w) = True Then
j = w + 2
Application.Union(Sheets('données').Range('A' & j + 19 & ':B' & j + 19), Sheets('données').Range(Coldate1 & j + 19 & ':' & Coldate2 & j + 19)).Select
selection.Copy
Range('A65536').End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveSheet.Paste
End If
Next w