[HELP] Création de macro

Sub Interprétation_graphique()
    Dim codification As Long
    Dim somme_poids As Integer, Démérite As Integer, i As Integer
    Dim Indicateur_de_la_Qualité As Single
    i = 10
    Démérite = 0
    somme_poids = 0
    Indicateur_de_la_Qualité = 0
    With Sheets("Données recueillies")
        codification = .Cells(10, "B")
        While CStr(codification) <> ""
            If .Cells(i, "N") = codification Then
                somme_poids = somme_poids + .Cells(i, "Q")
                If .Cells(i, "Z") = "Oui" Then
                    Démérite = Démérite + .Cells(i, "Q")
                ElseIf CStr(codification) = "-" Then
                    Démérite = Démérite + .Cells(i, "Q")
                End If
           End If
          i = i + 1
         codification = Cells(i, "B")
        Wend
    End With
    Indicateur_de_la_Qualité = 100 - Démérite * (100 / somme_poids)
    With Sheets("Interprétations graphiques")
        .Cells(18, "C") = Démérite
        .Cells(18, "E") = Indicateur_de_la_Qualité
    End With
End Sub