Bonjour laura, JC
Essayes comme ceci :
Sub Bouton5_QuandClic()
Dim c As Range
Dim k As Byte
Dim ligne As Integer
Range('f14:i100').Clear
ligne = 14
With Sheets('BASE_RECETTES')
For Each c In .Range('b6:b' & .Range('b65536').End(xlUp).Row)
If c = Range('f1') Then
For k = 6 To 9
Cells(ligne, k) = .Cells(c.Row, k)
Next k
ligne = ligne + 1
End If
Next c
End With
End Sub
salut