[kjin]

Re,
Je n'avais pas compris "sans formule".
Code associé au bouton 2
Private Sub CommandButton2_Click()
Ref = Range("G3").Value
Set Plge = Sheets(2).Range("J7:J" & Range("J7").End(xlDown).Row)
For Each cel In Sheets(1).Range("A5:A" & Range("A5").End(xlDown).Row)
If cel.Value <> "" Then
cel.Offset(0, 6) = Application.WorksheetFunction.CountIf(Plge, cel & Ref)
End If
Next
End Sub
A+
kjin