Problème macro ronds proportionnels

Bonjour, je souhaite réaliser des ronds de taille proportionnelle. j'ai récupéré une macro simple mais efficace comme je souhaite faire mais le problème est que je n'arrive pas à la transposer à mon fichier. Je ne sais pas si l'erreur provient du fait que les formes ne sont pas récupérées ou autre chose.

merci de votre aide

Bonjour

Tu as plusieurs macros

Je n'ai regardé que la macro associée au bouton en Feuil1

Option Explicit

Sub RondsExpl()
Dim i As Integer
  On Error Resume Next
  With Sheets("Feuil1")
    For i = 1 To 95
      With .Shapes("dept" & Cells(i + 2, 15))
        .Height = Cells(i + 2, 16).Value * 20
        .Width = Cells(i + 2, 16).Value * 20
      End With
    Next i
  End With
End Sub

Oui j'ai oublié de préciser mais c'était bien de celle ci que je parlais, les autres fonctionnent.

ça fonctionne très bien merci beaucoup