Private Sub CmdValider_Click()
Dim X As Long
Dim Y As Long
X = FeuilM.Range("B" & Rows.Count).End(xlUp).Row
For Y = 6 To X
If FeuilM.Cells(Y, 2).Value = TxCherché.Text Then
FeuilM.Cells(Y, 3).Value = CDbl(TxM)
FeuilM.Cells(Y, 4).Value = CDbl(TxP)
FeuilM.Cells(Y, 5).Value = CDbl(TxF)
FeuilM.Cells(Y, 6).Value = CDbl(TxH)
FeuilM.Cells(Y, 7).Value = CDbl(TxA)
End If
Next Y
Unload Me
UserForm1.Show
End Sub