XL 2021 boucle: cellules et shapes

[chindou]

Bonsoir le forum
J'utilise le code ci-dessous pour afficher ou masquer une forme selon la valeur de la cellule correspondante (Les cellules sont dans la même colonne mais pas contiguës). Le code fonctionne bien seulement je souhaite éviter ce code répétitif et faire une boucle. Est ce possible?
Merci d'avance pour votre aides
Cordialement

If UCase(Range("M10").Value) = "" Then
        Shapes.Range(Array("__4")).Visible = msoFalse
    Else
        Shapes.Range(Array("__4")).Visible = msoTrue
    End If
    
    If UCase(Range("M12").Value) = "" Then
        Shapes.Range(Array("__5")).Visible = msoFalse
    Else
        Shapes.Range(Array("__5")).Visible = msoTrue
    End If
    
    If UCase(Range("M14").Value) = "" Then
        Shapes.Range(Array("__6")).Visible = msoFalse
    Else
        Shapes.Range(Array("__6")).Visible = msoTrue
    End If
    
        
    If UCase(Range("M16").Value) = "" Then
        Shapes.Range(Array("__7")).Visible = msoFalse
    Else
        Shapes.Range(Array("__7")).Visible = msoTrue
    End If
    
    If UCase(Range("M18").Value) = "" Then
        Shapes.Range(Array("__8")).Visible = msoFalse
    Else
        Shapes.Range(Array("__8")).Visible = msoTrue
    End If
    
    If UCase(Range("M20").Value) = "" Then
        Shapes.Range(Array("__9")).Visible = msoFalse
    Else
        Shapes.Range(Array("__9")).Visible = msoTrue
    End If

 

[vgendron]

bonjour

déjà tu peux remplacer

If UCase(Range("M10").Value) = "" Then
        Shapes.Range(Array("__4")).Visible = msoFalse
    Else
        Shapes.Range(Array("__4")).Visible = msoTrue
    End If

par

Shapes.Range(Array("__4")).Visible = not(UCase(Range("M10").Value) = "")

 

[vgendron]

ensuite pour la boucle
en supposant que les cellules sont bien toutes les deux lignes M10-12-14-16-18...
et que les shapes sont numérotées __4 5 6 7 8 9..

for i=4 to 9
 Shapes.Range(Array("__"&i)).Visible = not(UCase(Range("M" &i*2+2).Value) = "")
next i

 

[chindou]

Bonsoir vgendron
Merci bien pour cette rapide réponse, ça marche impeccable.
Bonne soirée