Private Sub CommandButton1_Click() 'Modifier la base
Dim lig&
lig = ListBox1.ListIndex + 2
With Sheets("Filtre")
.Cells(lig, 4) = TextBox1
.Cells(lig, 5) = TextBox2
.Cells(lig, 6) = TextBox3
.Cells(lig, 7) = TextBox4
lig = .Cells(lig, 1) 'Repère
End With
With Sheets("Base")
.Cells(lig, 4) = TextBox1
.Cells(lig, 5) = TextBox2
.Cells(lig, 6) = TextBox3
.Cells(lig, 7) = TextBox4
End With
MsgBox "Ligne " & lig & " modifiée dans la base..."
End Sub