Private Sub Modification_Click()
If Recherche.tbValeurcherchée = "" Then Exit Sub
Msg = "Voulez vous modifier la procuration?"
Style = vbYesNo + vbExclamation + vbDefaultButton2
Title = "Confirmation Modification "
Réponse = MsgBox(Msg, Style, Title)
If Réponse = 7 Then Exit Sub
If Not c Is Nothing Then
Cells(c.Row, 1) = Recherche.TextBox64
Cells(c.Row, 2) = Recherche.TextBox65
Cells(c.Row, 49) = Recherche.TextBox66
MsgBox (" Modification réalisé avec succès")
c.Sort Key1:=Range("A2"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
ActiveWorkbook.Save
End If
End Sub