[kjin]

Bonjour,
Essaies comme ça:
Private Sub CommandButton2_Click()
Ref = Range("G3").Value
Set Plge1 = Sheets(2).Range("J7:J" & Range("J7").End(xlDown).Row)
Set Plge2 = Sheets(2).Range("N7:N" & Range("N7").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(Plge1, cel & Ref)
cel.Offset(0, 7) = Application.WorksheetFunction.SumIf(Plge1, cel & Ref, Plge2)
End If
Next
End Sub

A+
kjin