Sub valider()
Dim Produit As String, Age As String, Categorie As String, prenom As String, note As String, c As Variant
Dim lig As Long
With Sheets("Formulaire")
Produit = .Range("B1")
Age = .Range("C3")
Categorie = .Range("H3")
prenom = .Range("E6")
With .Range("A12:I12")
Set c = .Find("x", LookIn:=xlValues)
If Not c Is Nothing Then note = c.Offset(-1, 0).Value
.ClearContents
End With
.Range("B1,C3,E6,H3").ClearContents
End With
With Sheets("Base")
lig = .Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
.Cells(lig, 1) = Produit
.Cells(lig, 2) = Age
.Cells(lig, 3) = Categorie
.Cells(lig, 4) = prenom
.Cells(lig, 5) = note
End With
End Sub