Erreur 13

Bonjour,

Je suis actuellement en stage dans une entreprise de TP et je souhaite mettre en place des macros pour automatiser les arrêtés de compte.

J'ai un problème sur une formule qui fonctionne avec "sum" mais qui ne fonctionne pas avec "if". En effet, je voudrai que la macro écrive la formule =SI(Produit<>0(ex:A15);Marge(ex:C15)/A15;""). Il faut que ca s'écrive dans la case D15.

La macro est donc :

Sub Totaux()

' définitions:
Dim Sheets As Integer
Dim CptLig As Integer
Dim CptCol As Integer
Dim NbLigne As Integer
Dim NbColonne As Integer

' Compte les éléments
NbOnglet = Worksheets.Count

For Sheets = 1 To NbOnglet
    ' Compte le nombre de ligne
    NbLigne = Worksheets(Sheets).Cells.SpecialCells(xlCellTypeLastCell).Row
    ' Compte le nombre de colonne
    NbColonne = Worksheets(Sheets).Cells.SpecialCells(xlCellTypeLastCell).Column
Next

' On parcourt tous les onglets
For Sheets = 1 To NbOnglet
    ' On parcourt les colonnes
    For CptCol = 6 To NbColonne
        ' On remplace la somme dans les colonnes de pourcentage par des if
        If CptCol = 9 Or CptCol = 13 Or CptCol = 21 Or CptCol = 25 Or CptCol = 29 Or CptCol = 33 Then
            <bold>Worksheets(Sheets).Cells(NbLigne + 1, CptCol).Formula = "=if(" + Cells(NbLigne + 1, CptCol - 3).Address(0, 0) <> 0 + ";" + Cells(NbLigne + 1, CptCol - 1).Address(0, 0) / Cells(NbLigne + 1, CptCol - 3).Adress(0, 0) + ";" + "" + ")"</bold>
        End If
    Next
Next

La formule en gras m'indique une erreur 13 d'incompatibilité et je n'arrive pas a comprendre pourquoi puisque la formule pour une somme (ci dessous) fonctionne...

Worksheets(Sheets).Cells(NbLigne + 1, CptCol).Formula = "=sum(" + Cells(4, CptCol).Address(0, 0) + ":" + Cells(NbLigne, CptCol).Address(0, 0) + ")"

J'espère que quelqu'un pourra m'aider...

EDIT : Ajout des balises de code (la coloration syntaxique). Explications disponibles ici : ICI Merci d'y penser dans tes prochains messages.