Sub aller()
Range("C23:I23").Copy
With Sheets("Entrées Classes")
Set pl = .Range("AA6")
pl.Name = "page"
End With
Dim pl As Range
With Sheets("page")
Set pl = .Range("C4:IV" & .[B65000].End(xlUp).Row)
pl.Name = "base"
Set pl = .Range("B4:B" & .[B65000].End(xlUp).Row)
pl.Name = "dates"
Set pl = .Range(.Cells(3, 3), .Cells(3, .[IV3].End(xlToLeft).Column))
pl.Name = "noms"
End With
With Sheets("Entrées Classes")
Set pl = .Range("C3")
pl.Name = "date1"
Set pl = .Range("AB2")
pl.Name = "nom"
End With
x = Evaluate("Index(base,match(date1,dates,0),match(nom,noms,0))").Address
Sheets("parametres calendrier cours").Select
Range(x).PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
True, Transpose:=False
End Sub