Sub SAISIR_UN_NOUVEAU_CLIENT()

With Sheets("Formulaire")
    .Activate
    .Unprotect
    With .Range("F4:F38")
        .ClearContents
        .ColumnWidth = 20
    End With
    .Range("F38") = WorksheetFunction.Max(Sheets("Accueil").ListObjects("Tabentreprise").ListColumns(1).Range) + 1 'correctif worksheetfunction
    .Shapes("NOIR").OnAction = "" 'code au bouton noir sur feuille formulaire
    .Shapes("ROUGE").OnAction = "Ajout_Nouvelle_facture" 'enlever action de code sur bouton rouge sur feuille formulaire
    .Range("F4").Select
End With
End Sub

Sub Ajout_Nouvelle_facture()
Dim tb As ListObject
Dim lig As Integer
Dim i As Byte

For i = 4 To 16 Step 2
    With Sheets("FORMULAIRE")
        If .Cells(i, "F") = vbNullString Then
            MsgBox "Veuillez compléter le " & .Cells(i, "D") & " en cellule " & .Cells(i, "F").Address, vbCritical
            Exit Sub
        End If
    End With
Next i

Set tb = Sheets("Accueil").ListObjects("Tabentreprise")

Sheets("Accueil").Unprotect
With tb
    If .ListRows.Count = 0 Then
        .ListRows.Add: lig = 1
    Else: .ListRows.Add: lig = .ListRows.Count 'insérer à la dernière ligne
    End If
    
    With .DataBodyRange
        .Item(lig, 1) = Sheets("FORMULAIRE").Range("F38").Value 'num enr
        .Item(lig, 2) = Sheets("FORMULAIRE").Range("F4").Value 'Date
        .Item(lig, 3) = Sheets("FORMULAIRE").Range("F6").Value 'nom
        .Item(lig, 4) = Sheets("FORMULAIRE").Range("F8").Value 'activite
        .Item(lig, 5) = Sheets("FORMULAIRE").Range("F10").Value 'localisation
        .Item(lig, 6) = Sheets("FORMULAIRE").Range("F12").Value 'Travaux
        .Item(lig, 7) = Sheets("FORMULAIRE").Range("F14").Value 'Previsionnel
        .Item(lig, 8) = Sheets("FORMULAIRE").Range("F16").Value 'Montant HT
        .Item(lig, 11) = Sheets("FORMULAIRE").Range("F18").Value 'commentaire
        .Item(lig, 12) = UCase(Sheets("FORMULAIRE").Range("F20").Value) 'c
        .Item(lig, 13) = UCase(Sheets("FORMULAIRE").Range("F22").Value) 'D
        .Item(lig, 14) = UCase(Sheets("FORMULAIRE").Range("F24").Value) 'E
        .Item(lig, 15) = UCase(Sheets("FORMULAIRE").Range("F26").Value) 'F
        .Item(lig, 16) = UCase(Sheets("FORMULAIRE").Range("F28").Value) 'G
        .Item(lig, 17) = UCase(Sheets("FORMULAIRE").Range("F30").Value) 'H
        .Item(lig, 18) = UCase(Sheets("FORMULAIRE").Range("F32").Value) 'I
        .Item(lig, 19) = UCase(Sheets("FORMULAIRE").Range("F34").Value) 'J
        .Item(lig, 20) = UCase(Sheets("FORMULAIRE").Range("F36").Value) 'K
    End With
End With

Sheets("ACCUEIL").Activate
End Sub