VBA probleme macro copie

[actaris51]

Bonjour,
Je possède une feuille "deliverables_database" et une feuille "KPIS"
je voudrais générer un graphique en "camembert" à partir des valeurs d'une colonne de la feuille "deliverables_database".

J'ai écrit la macri suivante :

Sub copy_acceptor_list()

Sheets("Deliverables_Database").Range("L2:L2500").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Sheets("KPIS").Range("M24:M1000"), Unique:=True
Sheets("KPIS").Activate
With ActiveSheet
Dim Cel As Range
For Each Cel In Columns("M24:M").SpecialCells(xlCellTypeBlanks)
If Cel.Offset(, -1).Value > 0 Then
Cel.FormulaR1C1 = _
"=SUMPRODUCT(--(Technical_acceptor=RC13),--(Latest_Agreed_Baseline<TODAY()),--(Status=""Not Delivered""))"
End If
Next Cel
End With
End Sub

le début marche, les valeurs filtrées de ma colonne L de "deliverable databas" se copient bien dans "KPIS", à partir de la celulle M24.
Seulement, la macro plante (incompatibilité de type) à :
For Each Cel In Columns("M24:M").SpecialCells(xlCellTypeBlanks)

en fait, je voudrais dire, "pour chaque celulle à partir de N24, si il y a une valeur dans la cellule à sa gauche, alors la formule s'applique.

Pouvez vous m'aider ?

Merci

 

[actaris51]

Re : VBA probleme macro copie

En fait c'est bon, j'ai trouvé

 

[ariol]

Re : VBA probleme macro copie

Bonjour,
Dis nous ce que tu as corrigé : cela peut aider d'autre personne.
merci