Private Sub CommandButton2_Click()
Dim c As Range
flg_enr_ret = True
With Sheets("P")
'--- Transfert Formulaire dans P
'TextBox2.Value = .Range("L" & papass & "").Value
'TextBox3.Value = .Range("M" & papass & "").Value
Set c = .Columns("K").Find(Me.ComboBox1)
If Not c Is Nothing Then
.Range("L" & c.Row) = TextBox2.Value
.Range("M" & c.Row) = TextBox3.Value
End If
End With
MsgBox "Mot de passe changé"
Me.ComboBox1 = ""
Me.TextBox3 = ""
Me.TextBox2 = ""
flg_enr_ret = False
End Sub