Je n'arrive pas a faire fonctionner cette boucle ; je ne vois pas où je me trompe.
Merci de votre aide

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub Caseàcocher15_Click()
 
If Caseàcocher15 = False Then
ActiveSheet.Range("AG5") = ""
ActiveSheet.Range("AG5") = "BNP PARIBAS Agence PARIS ANJOU"
ActiveSheet.Shapes.Range(Array("Picture 2")).Visible = True
Else
ActiveSheet.Range("AG5") = ""
ActiveSheet.Range("AG5") = "LBP"
ActiveSheet.Shapes.Range(Array("Picture 2")).Visible = False
End If
End Sub