Bonjour,
je n'ai pas eu le temps de regarder ce que Cédric et Moa t'ont proposé, mais je te joins un code que j'ai déjà utilisé dans le même cas :
Private Sub CommandButton1_Click()
Cells.Find(What:="4", After:=Range("h5"), LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:=False) .Activate
i = ActiveCell.EntireRow.Address
j = Range("a65000").End(xlUp).EntireRow.Address
Range(i, j).Clear
End Sub
Bonne journée