XL 2013 Afficher les chiffres d'une cellules suivant condition sujet

Bonjour le forum,

Je tourne en rond pour trouver une formules qui puisse afficher les chiffres d'une cellules suivant condition "Lot de" voir fichier joint

Merci d'avance
Riton50

Fichiers attachés

• 
  
  Chiffre dune cellule.xlsx‎
  (9,6 Ko)
  

Code VBA pour chiffres sujet

Bonjour,

J'ai code VBA qui marche super bien :

Private Sub CommandButton1_Click()

Dim Dat As String
Dat = InputBox("Enter une date pour voir si réservation")
If IsDate(Dat) Then
Var = CDate(Dat)
c = Application.Match(CDate(Dat) * 1, [A:A], 0)
If IsNumeric(c) Then
Cells(c, 1).Select
Cells(c, 1).Interior.ColorIndex = 8
End If
End If

End Sub
-----------------------------------------------

Comment faire pour changer valeur date en chiffre.

De cette manière, je saisis un chiffre ou nombre dans Inputbox

Merci,
Bon week-end