Microsoft 365 Modification code vba

Sub Panier()
    Dim plageProd As Range
    Dim compteur As Integer
    Sheets("Bon de commande").Select
    Range("A9:E34").Select
    Selection.ClearContents
    Range("A1").Select
    With Sheets("Catalogue")
        Set plageProd = .Range("A9:" & .[A65000].End(xlUp).Address) 'repère les cellules non-vides de la colonne A
    End With
    'nbArt = WorksheetFunction.CountIf(plageProd.Offset(, 3), ">0") 'combien de qté renseignées?
    compteur = 9 'puisque bon de Cmde démarre en ligne 9
    With Sheets("Bon de commande")
        For Each cell In plageProd.Offset(, 3)
            If cell Then
                .Range("A" & compteur).Resize(1, 8) = cell.Offset(0, -7).Resize(1, 8).Value
                .Range("I" & compteur) = .Range("G" & compteur) * .Range("H" & compteur)
                compteur = compteur + 1
            End If
        Next cell
        '.Range("E" & compteur) = WorksheetFunction.Sum(Range(.Cells(9, 5), .Cells(compteur, 5)))
    End With
End Sub