Erreur d'exé 438- propriété ou méthode non géré par cet obje

Bonjour,

J'ai des control de type BarCodeCtrl (QR code) sur ma feuille et tous reprennent la valeur d'une cellule : j'indique la cellule qui s'y réfère dans la propriété LinkedCell de chaque control

Il doit y avoir un pb dans le code que j'ai tapé : 

Private Sub CommandButton1_Click()
Dim ctrl As Control
For Each ctrl In ActiveSheet.Controls
If ctrl.Name = "BarCodeCtrl" Then
If ctrl.Value = "" Then ctrl.Visible = False
End If
Next
End Sub

Le débogueur bloque sur la ligne For each ... donc je suppose que je dois utiliser une autre syntaxe vu le message d'erreur. 

L'idée est que si la cellule liée au control est vide, le control en question n'est pas visible.

Vu que je souhaite imprimer les QR code pour les scanner, je ne veux pas imprimer des QR code qui n'ont aucune valeur. 

Accessoirement, savez-vous s'il est possible d'adapter la zone d'impression aux seuls QR code visibles afin d'éviter d'imprimer des pages blanches ?

Par avance merci pour votre aide
Windows / Chrome 119.0.0.0