Valider des Données dans colonne précises

Private Sub b_validation_Click()
Dim Ligne
Dim lib_textbox$
If Me.Libelle = "" Then lib_textbox = "Libelle"
If Me.TypeOpértion = "" Then lib_textbox = lib_textbox & " " & "Type Opération"
If Me.NomCompte = "" Then lib_textbox = lib_textbox & " " & "Nom Compte"
If Me.NomBanque = "" Then lib_textbox = lib_textbox & " " & "Nom Banque"
If lib_textbox <> "" Then
    MsgBox "Veuillez remplir les textbox : " & lib_textbox, vbInformation + vbOKOnly
    End
End If
'le reste de ton code
'...
End Sub

Private Sub b_validation_Click()

Dim lign As Long
Application.ScreenUpdating = False
With Sheets("DonnéesCbx")
    For k = 1 To 4
      lign = .Cells(65536, k).End(xlUp).Row
      If Controls("TextBox" & k) <> "" Then .Cells(lign + 1, k) = Controls("TextBox" & k)
      .Range(.Cells(2, k), .Cells(65536, k).End(xlUp)).Sort Key1:=.Cells(2, k), Order1:=xlAscending, Header:=xlGuess, _
           OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
    Next
End With
Application.ScreenUpdating = True
Unload Me
End Sub