Msgbox vérification

On Error GoTo fin
Set jour = Application.InputBox(prompt:="se placer sur la date voulue", Type:=8)
'.......code
Exit Sub
fin:
MsgBox "coucou" 'test à supprimer après essai concluant
End Sub

Option Explicit
'----------------------------
Sub indiquer_résultat()
 Dim jour As Range, Col As Byte
 Dim Nbre As Byte, Lig As Byte, Cptr As Byte, Texto As String

Set jour = Application.InputBox(prompt:="se placer sur la date voulue", Type:=8)
Col = jour.Column
Nbre = Application.Count(Columns(Col), "*") - 1

Lig = 1
For Cptr = 1 To Nbre
    Lig = Columns(Col).Find("*", Cells(Lig, Col)).Row
    Texto = Texto & Cells(Lig, Col - 1) & ":=" & Cells(Lig, Col) & "; "
Next
MsgBox "le " & jour & Chr(10) & Texto

End Sub

Sub Test()
Dim C As Range, Cel As Range
Dim DerLig As Long
Dim Msg As String
Dim Reponse As Integer
    With Worksheets("Feuil1")
        Set C = .Rows(1).Find(Date, , xlValues)
        DerLig = .Range("B2").End(xlDown).Row
        If Not C Is Nothing Then
            For Each Cel In C.Offset(1).Resize(DerLig - 1)
                If Cel <> "" Then
                    Msg = Msg & "Ref : " & .Range("B" & Cel.Row) & " ;Valeur : " & Cel & Chr(10)
                End If
            Next Cel
        End If
        If Msg <> "" Then
            Reponse = MsgBox(Msg & Chr(10) & "Voulez-vous valider la saisie ?", vbYesNo)
            If Reponse = vbNo Then C.Offset(1).Resize(DerLig - 1).ClearContents
        End If
    End With
End Sub