Sub WorkBookOppenheimer()
Dim Cel As Range, Dte As Date, p As Range, pl As Range, adr$, t, total As Variant
Dte = Sheets("y").Range("E2").Value
Application.ScreenUpdating = False
With Sheets("x")
Set p = .Range("C12:C" & Rows.Count).SpecialCells(xlCellTypeConstants)
For Each Cel In p
Cel.Resize(, 11).Font.Bold = (Cel.Value < Dte)
If Cel.Font.Bold Then
adr = adr & Cel.Address & ";"
End If
Next
End With
t = Split(Left(adr, Len(adr) - 1), ";")
Set pl = Range(t(0), t(UBound(t))).Resize(, 11)
pl.Name = "za"
MsgBox [za].Address ' pour test
'je suis pas sur de comprendre ce que tu veux faire ensuite ;o)
'ActiveWorkbook.Worksheets("x").Names.Add Name:="za", RefersTo:="=" & Selection.Address
'Range("za").Select
'Range("za").CurrentRegion.Rows(Range("za").CurrentRegion.Rows.Count).Select
'ActiveCell.Offset(0, 7).Activate
'ActiveWorkbook.Worksheets("x").Names.Add Name:="dercel", RefersTo:="=" & Selection.Address
' Range("dercel", "I12").Select
'ActiveWorkbook.Worksheets("x").Names.Add Name:="ze", RefersTo:="=" & Selection.Address
'Application.Intersect(Range("ze"), Range("ze")).Select
'ActiveWorkbook.Worksheets("x").Names.Add Name:="in", RefersTo:="=" & Selection.Address
'For Each Cel In Range("in")
'If Cel = "" Then
'total = total + Cel.Count
'End If
'Next
End Sub