With Sheets("valo complet socle")
.Activate
Set plage = .[D8:D14] ' plage de données
n = Application.CountIf(plage, "?*") 'valeurs <> ""
If n = 0 Then n = 1 'sécurité...
plage.Resize(n).Select
ActiveWorkbook.Names.Add Name:="acetone", RefersTo:=Selection
End With