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
    .Range("F6") = tb.DataBodyRange(lig, 3).Value
    .Range("F8") = tb.DataBodyRange(lig, 4).Value
    .Range("F10") = tb.DataBodyRange(lig, 5).Value
    .Range("F12") = tb.DataBodyRange(lig, 6).Value
    .Range("F14") = tb.DataBodyRange(lig, 7).Value
    .Range("F16") = tb.DataBodyRange(lig, 8).Value
    .Range("F18") = tb.DataBodyRange(lig, 11).Value
    .Range("F20") = tb.DataBodyRange(lig, 12).Value
    .Range("F22") = tb.DataBodyRange(lig, 13).Value
    .Range("F24") = tb.DataBodyRange(lig, 14).Value
    .Range("F26") = tb.DataBodyRange(lig, 15).Value
    .Range("F28") = tb.DataBodyRange(lig, 16).Value
    .Range("F30") = tb.DataBodyRange(lig, 17).Value
    .Range("F32") = tb.DataBodyRange(lig, 18).Value
    .Range("F34") = tb.DataBodyRange(lig, 19).Value
    .Range("F36") = tb.DataBodyRange(lig, 20).Value
    .Range("F38") = tb.DataBodyRange(lig, 1).Value
    .Activate
    
    Call Mise_en_forme_formulaire 'appeler code pour mise en forme colonnes D et F du formulaire
    
    .Protect
End With
End Sub

Sub Modification_ligne_entreprise() 'modification ligne entreprise en feuille Accueil
Dim tb As ListObject
Dim lig As Integer

With Sheets("ACCUEIL")
    .Unprotect
    Set tb = .ListObjects(1)
End With

With Sheets("Formulaire")
    
    lig = WorksheetFunction.Match(.Range("F38").Value, tb.ListColumns(1).DataBodyRange, 0)
    
    tb.DataBodyRange(lig, 2) = .Range("F4").Value
    tb.DataBodyRange(lig, 3) = .Range("F6").Value
    tb.DataBodyRange(lig, 4) = .Range("F8").Value
    tb.DataBodyRange(lig, 5) = .Range("F10").Value
    tb.DataBodyRange(lig, 6) = .Range("F12").Value
    tb.DataBodyRange(lig, 7) = .Range("F14").Value
    tb.DataBodyRange(lig, 8) = .Range("F16").Value
    tb.DataBodyRange(lig, 11) = .Range("F18").Value
    tb.DataBodyRange(lig, 12) = .Range("F20").Value
    tb.DataBodyRange(lig, 13) = .Range("F22").Value
    tb.DataBodyRange(lig, 14) = .Range("F24").Value
    tb.DataBodyRange(lig, 16) = .Range("F28").Value
    tb.DataBodyRange(lig, 17) = .Range("F30").Value
    tb.DataBodyRange(lig, 18) = .Range("F32").Value
    tb.DataBodyRange(lig, 19) = .Range("F34").Value
    tb.DataBodyRange(lig, 20) = .Range("F36").Value
    
    .Range("F4:F38").ClearContents 'remise a zero formulaire
End With

With Sheets("ACCUEIL")
    .Activate
    .Protect
End With
End Sub