Problème sur validation des données et appel de donné

Bonjour,

Private Sub CommandButton1_Click()
Dim l_info As Integer
Dim ws As Worksheet

TextBoxFINDAT.Tag = Date
Set ws = ThisWorkbook.Worksheets("TABLEAU")
With ws
    l_info = .Columns(2).Find(ComboBoxfiche.Value, , , xlWhole).Row
    .Range("W" & l_info).Value = TextBoxFINCH 'NOM CHARGE DE TRAVAUX'
    .Range("X" & l_info).Value = TextBoxFINST 'societe'
    .Range("Y" & l_info).Value = TextBoxFINCCS 'NOM CHARGE DE consignation'
    .Range("Z" & l_info).Value = Format(CDate(TextBoxFINDAT.Tag), "dd/mm/yyyy")  'date des travaux terminer'
    .Range("AA" & l_info).Value = TextBoxFINHEU 'heure des travaux terminer'
    If CheckBox1.Value = True Then
        .Range("AC" & l_info).Value = "Déconsigné"
   Else
        .Range("AC" & l_info).Value = "Non Déconsigné"
   End If
End With
Unload Me
End Sub

pour le rappel des donne j'ai mis en place dans mon tableau

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 29 Then UserFormRAPPEL.Show
End Sub

et j’ai créé le même userform qu'avis de travail et et j'ai mis ce code et visual me dis qu’il y a une erreur

Private Sub ComboBoxfiche1_Change()
Dim Ligne As Integer
    With ThisWorkbook.Sheets("TABLEAU")
        Ligne = .Columns("B").Find(Me.ComboBoxfiche1.Value, .Range("b3"), xlValues).Row
   Me.TextBoxFINCH.Value = .Cells(Ligne, "W") 'colone W'
             Me.TextBoxFINST.Value = .Cells(Ligne, "X") 'colone S'
                           Me.TextBoxFINCCS.Value = .Cells(Ligne, "Y") 'colone Y'
                                 Me.TextBoxFINDAT.Value = .Cells(Ligne, "Z") 'colone Z'
                                      Me.TextBoxFINHEU.Value = .Cells(Ligne, "AA") 'colone AA'
 
End With
Unload Me
End Sub

ci dessous mon fichier
https://www.cjoint.com/c/GKujGvCJti5

j'ai crée lorsque que l’on pointe sur la feuille charge de consignation en h60 une signature a main levée mais je voudrais efface des que j'ai clique sur la macro imprimé

merci de votre aide