debeguer une macros

Sub Macro1()
Dim pl As Range 'déclare la variable pl (PLage)
Dim cel As Range 'déclare la variable cel (CELlule)
Dim r As Range 'déclare la variable r (Recherche)
Dim col As Integer 'déclare la variable col (COLonne)
 
Set pl = Sheets("charge").Range("A4:A" & Sheets("charge").Cells(Application.Rows.Count, 1).End(xlUp).Row) 'définit la plage pl (A4:A... dernière cellule éditée)
For Each cel In pl 'boucle sur toutes les cellules éditées cel de la plage pl
    Set r = Sheets("MCBZ").Columns(2).Find(cel.Value, , xlValues, xlWhole) 'définit la recherche (recherche la cellule cel dans la colonne B de l'onglet "MCBZ")
    If Not r Is Nothing Then 'condition : si il existe au moins une occurrence trouvée
        col = r.Offset(0, 9).Value + 5 'définit la colonne col (numéro de semaine + 5)
        Sheets("charge").Cells(cel.Row, col).Value = r.Offset(0, 1).Value 'récupère le stock et le place dans la semaine adéquate
    End If 'fin de la condition
Next cel 'prochaine cellule cel de la boucle
End Sub