Sub ACCUEIL_Bouton4_Cliquer() 'bouton Modification Ligne entreprise
Dim code As Integer

On Error Resume Next
code = InputBox("SAISIR LE NUMERO DU CLIENT", "MODIFIER UN CLIENT")
If code = False Then Exit Sub
On Error GoTo 0

Dim tb As ListObject
Dim lig As Integer

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

On Error Resume Next
'recherche code dans feuille Accueil
lig = WorksheetFunction.Match(code, tb.ListColumns(1).DataBodyRange, 0)
'message information si code inexistant
If lig = 0 Then MsgBox "Numero Enregistrement " & code & " inexistant en feuile Accueil !", vbCritical, "CODE ERRONE": Exit Sub
On Error GoTo 0

With Sheets("Formulaire")
    .Shapes("NOIR").OnAction = "Modification_ligne_entreprise" 'attribuer code au bouton noir sur feuille formulaire
    .Shapes("ROUGE").OnAction = "" 'enlever action de code sur bouton rouge sur feuille formulaire
    .Unprotect
    .Range("F4:F38").ClearContents
    .Range("F4") = tb.DataBodyRange(lig, 2).Value 'date
    .Range("F6") = tb.DataBodyRange(lig, 3).Value 'nom
    .Range("F8") = tb.DataBodyRange(lig, 4).Value 'activité
    .Range("F10") = tb.DataBodyRange(lig, 5).Value 'localisation
    .Range("F12") = tb.DataBodyRange(lig, 6).Value 'travaux
    .Range("F14") = tb.DataBodyRange(lig, 7).Value 'previs
    .Range("F16") = tb.DataBodyRange(lig, 8).Value 'Montant
    .Range("F18") = tb.DataBodyRange(lig, 11).Value 'commentaire
    .Range("F20") = tb.DataBodyRange(lig, 12).Value 'C
    .Range("F22") = tb.DataBodyRange(lig, 13).Value 'D
    .Range("F24") = tb.DataBodyRange(lig, 14).Value 'E
    .Range("F26") = tb.DataBodyRange(lig, 15).Value 'F
    .Range("F28") = tb.DataBodyRange(lig, 16).Value 'G
    .Range("F30") = tb.DataBodyRange(lig, 17).Value 'H
    .Range("F32") = tb.DataBodyRange(lig, 18).Value 'I
    .Range("F34") = tb.DataBodyRange(lig, 19).Value 'J
    .Range("F36") = tb.DataBodyRange(lig, 20).Value 'K
    .Range("F38") = tb.DataBodyRange(lig, 1).Value 'N° enr
    .Activate
    
    Call Mise_en_forme_formulaire 'appeler code pour mise en forme colonnes D et F du formulaire
    
    .Protect
End With
End Sub