Modif dans macro pour rajout du ratio pièce en pourcentage

Bonjour je voudrais rajouter le ratio pièce a cet macro mais je ne comprend pas comment faire merci

mes colonne H " pièce théorique " Colonne I " pièce réaliser " je voudrais avoir le nombre d'opération perdues à la journée en pourcentage, toujours avec la date en K19.

Sub CompteTotal_MA()
' Déclaration des variables pour la macro
Dim Plage As Range
Dim Ws As Worksheet
Dim Nblg As Long
Dim Nb1 As Long, Nb2 As Long, Nb3 As Long

  ' Vérification si une date existe dans la cellule K19
  If Not IsDate(Range("K19")) Then
    ' Si pas de date on informe l'utilsateur et on quitte
    MsgBox " Veuillez inscrire une date dans la cellule K19 "
    Exit Sub
  End If
  ' Pour chaque page
  For Each Ws In Sheets(Array("Saisie MA"))
    ' Calcule du nombre de ligne dans le tableau
    Nblg = Ws.Range("G" & Rows.Count).End(xlUp).Row
    ' Formule Sommeprod avec comme nombre de ligne = 66
    ' Pour la page MA   : sumproduct(N('MA'!G10:G66= K19)*('MA'!I10:I66<=50))
    ' Pour la page MLx  : sumproduct(N('MLx'!G10:G66= K19)*('MLx'!I10:I66<=50))
    Nb1 = Nb1 + Evaluate("sumproduct(N('" & Ws.Name & "'!G10:G" & Nblg & "= K19)*('" & Ws.Name & "'!I10:I" & Nblg & "<=50))")
    ' Un simple NB.SI() pour le total
    Nb2 = Nb2 + Application.CountIf(Ws.Range("G10:G" & Nblg), Range("K19"))
    ' Compte le nombre de fois où la colonne BH est <> ""
    Nb3 = Nb3 + Evaluate("sumproduct(N('" & Ws.Name & "'!G10:G" & Nblg & "= K19)*('" & Ws.Name & "'!BH10:BH" & Nblg & "<>""""))")
  Next Ws
  ' Affiche le résultat
  MsgBox "Nombre d'outils en MA qui n'ont pas atteint la charnière à la date du " & Range("K19") & " : " & vbCr & _
  "Total  :    " & Nb2 & vbCr & _
  "Total inférieur ou égal à 50 pièces  :    " & Nb1 & vbCr & _
  "Total impacté à l'affûtage  :    " & Nb3

End Sub
 

Bonjour

Copier la macro, c'est bien mais ce serait mieux si le fichier qui va avec était joint.

Bonsoir voici le fichier joint et merci

le calcul et " =1/colonne H * colonne I " et en prenant en compte que les valeur à la date sur la page d’accueil " K19 "mais je ne sait pas comment faire en VBA