Private Sub Cmd_Modifier_Click() 'Modifier
' Mettre le FLAG de sortie à vrai
FlgExit = True
' Modifier les données
With Sheets("STESPARTENAIRES")
.Cells(ln, 1).Value = Textbox1
.Cells(ln, 2).Value = Textbox2
.Cells(ln, 3).Value = Textbox3
.Cells(ln, 4).Value = Textbox4
.Cells(ln, 5).Value = Textbox5
.Cells(ln, 6).Value = Textbox6
.Cells(ln, 7).Value = Textbox7
.Cells(ln, 8).Value = Textbox8
End With
' Enlever el FLAG
FlgExit = False
End Sub