Besoin codes pour Usf

Sub Vérifier()
    Dim DerL&, Lig&
    DerL = Feuil2("A" & Rows.Count).End(xlUp).Row
    For Lig = 2 To DerL
        If Cells(Lig, 12) = "" And Cells(Lig, 10) <> "" Then
            With Cells(Lig, 12)
                .Value = "Non communiqué"
                .Font.Bold = True
                .Font.ColorIndex = 3
            End With
        Else
            With Cells(Lig, 12)
                .Value = .Value
                .Font.Bold = False
                .Font.ColorIndex = 1
            End With
        End If
        If Cells(Lig, 10) = "" And Cells(Lig, 12) <> "" Then
            With Cells(Lig, 10)
                .Value = "Non communiquée"
                .Font.Bold = True
                .Font.ColorIndex = 3
            End With
        Else
            With Cells(Lig, 10)
                .Value = .Value
                .Font.Bold = False
                .Font.ColorIndex = 1
            End With
        End If
    Next Lig
    Cells.Columns.AutoFit
    [A1].Select
End Sub

Private Sub tb12_Change()
Dim Valeur As Byte
tb12.MaxLength = 5 'nb caracteres maxi dans textbox
End Sub

Private Sub tb12_KeyPress(ByVal Touche As MSForms.ReturnInteger)
If InStr("0123456789", Chr(Touche)) = 0 Then Touche = 0 'si on tape autre chose qu'un chiffre, il est annulé
End Sub

Sub Vérifier()     'vérifie qu'il y a une adresse
    Dim DerL&, Lig&
    DerL = Sheets("Base").Range("A" & Rows.Count).End(xlUp).Row
    For Lig = 2 To DerL
        If Cells(Lig, 10) = "" Then
                With Cells(Lig, 10)
                .Value = "Non communiquée"    'si absence adresse
                .Font.Bold = True
                .Font.ColorIndex = 3
                End With
            Else
         End If
    Next Lig
    Cells.Columns.AutoFit
    [A1].Select
End Sub

Option Explicit
Dim C
Dim i As Byte
Dim FinBase As Long
Sub CreerContact()
With Usf_Action
    If .Controls("Tb2").Value = "" Then
        MsgBox ("Veuillez saisir un prénom avant de continuer")
        Exit Sub
    End If
End With
    With Sheets("Base")
        Set C = .Range("A:A").Find(Usf_Action.tb1, Lookat:=xlWhole)
        If Not C Is Nothing Then
            MsgBox ("Attention ! Ce Nom existe déjà")
            Exit Sub
        Else
            FinBase = .Range("A" & .Rows.Count).End(xlUp).Row + 1
            For i = 1 To 21
              With .Range("A" & FinBase).Offset(0, i - 1)
                      
                         .Value = IIf(Usf_Action.Controls("Tb" & i) = "", IIf(i > 5 And i < 10, "-", ""), _
                                               Usf_Action.Controls("Tb" & i)) ' On met "-" selon colonne Vide
                    If .Value = "-" Then .HorizontalAlignment = xlCenter 'Si "-"  On centre
                Select Case i 'un peu de mise en forme
                    Case 1 'Majuscule et gras
                          .Value = UCase(.Value) 'mise en majuscule du NOM
                          .Font.Bold = True 'mise en Gras du NOM                 
                    Case 2, 4, 11, 13, 14, 15, 16, 17  '1° lettre des mots en Majuscule
                          .Font.Bold = True
                          .Value = WorksheetFunction.Proper(.Value)
                    Case 3
                          .Value = Format(.Value, "dd/mm/yyyy")
                    Case 6, 7, 8
                          .Value = Format(.Value, "0# ## ## ## ##")
                    Case 9
                        'format adresse mail ?
                         .Value = .Value
                    Case 10
                         .Value = IIf(.Value = "", "Non communiquée", .Value) 'Si vide "Non communiquée"
                         .Value = WorksheetFunction.Proper(.Value) 'On formate
                         .Font.Bold = True
                         .Font.ColorIndex = 3
                    Case 12
                         .Value = IIf(.Value = "", "Non communiqué", Format(.Value, "#####"))'Si vide "Non                                               communiqué"
                         .Font.Bold = True
                         .Font.ColorIndex = 3
                End Select
             End With
            Next i
                         'mise à jour de la date de MàJ en colonne V
                         .Range("A" & FinBase).Offset(0, 21) = Format(Now, "dd/mm/yyyy")
            'ChargerData
        End If
            .Cells.Columns.AutoFit 'On ajuste la largeur des Colonnes
    End With
    Usf_Action.B_valid.Caption = "Modifier"
End Sub

Private Sub Texbox6_Exit(ByVal Cancel As MSForms.ReturnBoolean)
    Dim adm$, i%, j%, nc As Boolean
    adm = Trim(tb6.Value)
    If adm = "" Then Exit Sub
    adm = Replace(Replace(Replace(adm, "..", "."), "--", "-"), "__", "_")
    adm = Replace(Replace(Replace(adm, ".@", "@"), "-@", "@"), "_@", "@")
    adm = Replace(Replace(Replace(adm, "@.", "@"), "@-", "@"), "@_", "@")
    If adm Like "@*" Then adm = Right(adm, Len(adm) - 1)
    If adm Like "*@" Then adm = Left(adm, Len(adm) - 1)
    For i = 1 To Len(adm)
        If Mid(adm, i, 1) = "@" Then j = j + 1
    Next i
    If j = 1 Then
        i = InStr(Split(adm, "@")(1), ".")
        If i > 0 Then
            For i = 1 To Len(adm)
                Select Case Asc(Mid(adm, i, 1))
                    Case 45, 46, 48 To 57, 64 To 90, 95, 97 To 122
                    Case Else
                        nc = True: Exit For
                End Select
            Next i
        Else
            nc = True
        End If
    Else
        nc = True
    End If
    If nc Then
        MsgBox "L'adresse mail n'est pas conforme !", vbInformation, "Adresse invalide"
        Cancel = True
    Else
        tb6.Value = adm
    End If
End Sub