Pour tirer le meilleur parti d'Excel et de VBA, vous devez savoir utiliser efficacement les boucles.
En VBA, les boucles permettent de parcourir un ensemble d'objets/valeurs et de les analyser un par un. Vous pouvez également effectuer des tâches spécifiques pour chaque boucle.
Voici un exemple simple d'utilisation de boucles VBA dans Excel.
Supposons que vous ayez un ensemble de données et que vous souhaitiez mettre en évidence toutes les cellules dans des lignes paires. Vous pouvez utiliser une boucle VBA pour parcourir la plage et analyser chaque numéro de ligne de cellule. S'il s'avère être pair, vous lui donnez une couleur, sinon vous le laissez tel quel.
Maintenant, bien sûr, il est très simple de boucler dans Excel VBA (et vous pouvez également le faire en utilisant une mise en forme conditionnelle).
Dans la vraie vie, vous pouvez faire beaucoup plus avec les boucles VBA dans Excel qui peuvent vous aider à automatiser les tâches.
Voici quelques exemples plus pratiques où les boucles VBA peuvent être utiles :
- En parcourant une plage de cellules et en analysant chaque cellule (mettez en surbrillance les cellules contenant un texte spécifique).
- Parcourir toutes les feuilles de calcul et faire quelque chose avec chacune (comme protéger/déprotéger).
- Parcourez tous les classeurs ouverts (et enregistrez chaque classeur ou fermez tous sauf le classeur actif).
- Parcourez tous les caractères d'une cellule (et extrayez la partie numérique d'une chaîne).
- Parcourez toutes les valeurs d'un tableau.
- Parcourez tous les graphiques/objets (et donnez une bordure ou modifiez la couleur d'arrière-plan).
Maintenant, pour utiliser au mieux les boucles dans Excel VBA, vous devez connaître les différents types qui existent et la syntaxe correcte de chacun.
Dans ce tutoriel, je vais présenter différents types de boucles Excel VBA et couvrir quelques exemples pour chaque boucle
Remarque : cela va être un énorme tutoriel, où je vais essayer de couvrir chaque boucle VBA en détail. Je vous recommande de marquer cette page pour référence future.Si vous souhaitez apprendre VBA en toute simplicité, consultez mon Formation en ligne Excel VBA.
Pour la prochaine boucle
La boucle « For Next » vous permet de parcourir un bloc de code pour le nombre de fois spécifié.
Par exemple, si je vous demande d'ajouter les nombres entiers de 1 à 10 manuellement, vous ajouteriez les deux premiers nombres, puis ajouteriez le troisième nombre au résultat, puis ajouteriez le quatrième nombre au résultat, ainsi de suite…
N'est-ce pas ?
La même logique est utilisée dans la boucle For Next en VBA.
Vous spécifiez combien de fois vous voulez que la boucle s'exécute et spécifiez également ce que vous voulez que le code fasse à chaque fois que la boucle est exécutée.
Vous trouverez ci-dessous la syntaxe de la boucle For Next :
Pour le compteur = du début à la fin [Valeur de l'étape] [Bloc de code à exécuter] Suivant [compteur]
Dans la boucle For Next, vous pouvez utiliser un compteur (ou n'importe quelle variable) qui sera utilisé pour exécuter la boucle. Ce compteur vous permet d'exécuter cette boucle un nombre de fois requis.
Par exemple, si je veux ajouter les 10 premiers entiers positifs, alors ma valeur de compteur serait de 1 à 10.
Voyons quelques exemples pour mieux comprendre le fonctionnement de la boucle For Next.
Exemple 1 - Addition des 10 premiers entiers positifs
Vous trouverez ci-dessous le code qui ajoutera les 10 premiers entiers positifs à l'aide d'une boucle For Next.
Il affichera alors une boîte de message indiquant la somme de ces nombres.
Sub AddNumbers() Dim Total As Integer Dim Count As Integer Total = 0 For Count = 1 to 10 Total = Total + Count Next Count MsgBox Total End Sub
Dans ce code, la valeur de Total est définie sur 0 avant d'entrer dans la boucle For Next.
Une fois qu'il entre dans la boucle, il conserve la valeur totale après chaque boucle. Ainsi, après la première boucle, lorsque Counter est égal à 1, la valeur 'Total' devient 1, et après la deuxième boucle, elle devient 3 (1+2), et ainsi de suite.
Et enfin, lorsque la boucle se termine, la variable 'Total' a la somme des 10 premiers entiers positifs.
Une MsgBox affiche alors simplement le résultat dans une boîte de message.
Exemple 2 - Ajout des 5 premiers entiers pairs positifs
Pour additionner les cinq premiers entiers pairs positifs (c'est-à-dire 2,4,6,8 et 10), vous avez besoin d'un code similaire avec une condition pour ne considérer que les nombres pairs et ignorer les nombres impairs.
Voici un code qui le fera :
Sub AddEvenNumbers() Dim Total As Integer Dim Count As Integer Total = 0 For Count = 2 to 10 Step 2 Total = Total + Count Next Count MsgBox Total End Sub
Notez que nous avons commencé la valeur Count à partir de 2 et avons également utilisé 'Étape 2‘.
Lorsque vous utilisez 'Étape 2', il indique au code d'incrémenter la valeur "Count" de 2 à chaque fois que la boucle est exécutée.
Ainsi, la valeur Count commence à partir de 2, puis devient 4, 6, 8 et 10 au fur et à mesure que la boucle se produit.
REMARQUE : une autre façon de procéder pourrait être d'exécuter la boucle de 1 à 10 et, dans la boucle, de vérifier si le nombre est pair ou impair. Cependant, l'utilisation de Step, dans ce cas, est un moyen plus efficace car elle ne nécessite pas que la boucle s'exécute 10 fois, mais seulement 5 fois.
La valeur Step peut également être négative. Dans ce cas, le compteur commence à une valeur plus élevée et continue d'être décrémenté par la valeur de pas spécifiée.
Exemple 3 - Saisie du numéro de série dans les cellules sélectionnées
Vous pouvez également utiliser la boucle For Next pour parcourir une collection d'objets (tels que des cellules ou des feuilles de calcul ou des classeurs),
Voici un exemple qui saisit rapidement les numéros de série dans toutes les cellules sélectionnées.
Sub EnterSerialNumber() Dim Rng As Range Dim Counter As Integer Dim RowCount As Integer Set Rng = Selection RowCount = Rng.Rows.Count For Counter = 1 To RowCount ActiveCell.Offset(Counter - 1, 0).Value = Counter Next Counter End Sous
Le code ci-dessus compte d'abord le nombre de lignes sélectionnées, puis attribue cette valeur à la variable RowCount. Nous exécutons ensuite la boucle de « 1 à RowCount ».
Notez également que puisque la sélection peut être n'importe quel nombre de lignes, nous avons défini la variable Rng sur la sélection (avec la ligne « Set Rng = Selection »). Nous pouvons maintenant utiliser la variable « Rng » pour faire référence à la sélection dans notre code.
Exemple 4 - Protéger toutes les feuilles de calcul dans le classeur actif
Vous pouvez utiliser la boucle « Pour le suivant » pour parcourir toutes les feuilles de calcul du classeur actif et protéger (ou déprotéger) chacune des feuilles de calcul.
Ci-dessous le code qui fera cela :
Sub ProtectWorksheets() Dim i As Integer For i = 1 To ActiveWorkbook.Worksheets.Count Worksheets(i).Protect Next i End Sub
Le code ci-dessus compte le nombre de feuilles en utilisant ActiveWorkbook.Worksheets.Count. Cela indique à VBA combien de fois la boucle doit être exécutée.
Dans chaque cas, il fait référence au Ième classeur (à l'aide de Worksheets(i)) et le protège.
Vous pouvez également utiliser ce même code pour déprotéger les feuilles de calcul. Il suffit de changer la ligne Feuilles de travail (i).Protéger à Feuilles de travail (i).Déprotéger.
Boucles « pour le prochain » imbriquées
Vous pouvez utiliser des boucles imbriquées « For Next » pour effectuer une automatisation plus complexe dans Excel. Une boucle « Pour le suivant » imbriquée signifierait qu'il existe une boucle « Pour le suivant » dans une boucle « Pour le suivant ».
Laissez-moi vous montrer comment l'utiliser à l'aide d'un exemple.
Supposons que j'ai 5 classeurs ouverts dans mon système et que je souhaite protéger toutes les feuilles de calcul de tous ces classeurs.
Ci-dessous le code qui fera cela :
Sub ProtectWorksheets() Dim i As Integer Dim j As Integer For i = 1 To Workbooks.Count For j = 1 To Workbooks(i).Worksheets.Count Workbooks(i).Worksheets(j).Protect Next j Next i End Sub
Ce qui précède est une boucle For Next imbriquée car nous avons utilisé une boucle For Next dans une autre.
Instructions « EXIT For » dans les boucles For Next
L'instruction « Exit For » vous permet de quitter complètement la boucle « For Next ».
Vous pouvez l'utiliser dans les cas où vous souhaitez que la boucle For Next se termine lorsqu'une certaine condition est remplie.
Prenons un exemple où vous avez un ensemble de nombres dans la colonne A et vous souhaitez mettre en évidence tous les nombres négatifs en rouge. Dans ce cas, nous devons analyser chaque cellule pour sa valeur, puis modifier la couleur de la police en conséquence.
Mais pour rendre le code plus efficace, nous pouvons d'abord vérifier s'il y a des valeurs négatives dans la liste ou non. S'il n'y a pas de valeurs négatives, nous pouvons utiliser l'instruction Exit For pour simplement sortir du code.
Ci-dessous le code qui fait cela :
Sub HghlightNegative() Dim Rng As Range Set Rng = Range("A1", Range("A1").End(xlDown)) Counter = Rng.Count For i = 1 To Counter If WorksheetFunction.Min(Rng) >= 0 Puis sortie pour Si Rng(i).Value < 0 Then Rng(i).Font.Color = vbRed Next i End Sub
Lorsque vous utilisez l'instruction « Exit For » dans une boucle « For Next » imbriquée, elle sort de la boucle dans laquelle elle est exécutée et exécute la ligne suivante du code après la boucle For Next.
Par exemple, dans le code ci-dessous, l'instruction « Exit For » vous sortira de la boucle interne, mais la boucle externe continuera à fonctionner.
Sub SampleCode() Pour i = 1 à 10 Pour j = 1 à 10 Exit For Next J Next i End Sub
Faire la boucle pendant
Une boucle « Do While » vous permet de vérifier une condition et d'exécuter la boucle tant que cette condition est remplie (ou est VRAIE).
Il existe deux types de syntaxe dans la boucle Do While.
Faire [While condition] [Code block to Execute] Boucle
et
Faire [Bloquer le code pour exécuter] Boucle [Condition pendant]
La différence entre les deux est que dans le premier cas, la condition While est vérifiée en premier avant l'exécution de tout bloc de code, et dans le second cas, le bloc de code est exécuté en premier, puis la condition While est vérifiée.
Cela signifie que si la condition While est False dans les deux cas, le code s'exécutera toujours au moins une fois dans le second cas (car la condition 'While' est vérifiée après que le code a été exécuté une fois).
Voyons maintenant quelques exemples d'utilisation des boucles Do While en VBA.
Exemple 1 - Ajouter les 10 premiers entiers positifs à l'aide de VBA
Supposons que vous souhaitiez ajouter les dix premiers entiers positifs à l'aide de la boucle Do While dans VBA.
Pour ce faire, vous pouvez utiliser la boucle Do While jusqu'à ce que le nombre suivant soit inférieur ou égal à 10. Dès que le nombre est supérieur à 1o, votre boucle s'arrêtera.
Voici le code VBA qui exécutera cette boucle Do While et affichera le résultat dans une boîte de message.
Sub AddFirst10PositiveIntegers() Dim i As Integer i = 1 Do While i <= 10 Result = Result + i i = i + 1 Loop MsgBox Result End Sub
La boucle ci-dessus continue de fonctionner jusqu'à ce que la valeur de « i » devienne 11. Dès qu'elle devient 11, la boucle se termine (comme la condition While devient False).
Dans la boucle, nous avons utilisé une variable de résultat qui contient la valeur finale. Une fois la boucle terminée, une boîte de message affiche la valeur de la variable « résultat ».
Exemple 2 - Saisir les dates du mois en cours
Supposons que vous souhaitiez saisir toutes les dates du mois en cours dans une colonne de feuille de calcul.
Vous pouvez le faire en utilisant le code de boucle Do While suivant :
Sub EnterCurrentMonthDates() Dim CMDate As Date Dim i As Integer i = 0 CMDate = DateSerial(Year(Date), Month(Date), 1) Do While Month(CMDate) = Month(Date) Range("A1").Offset (i, 0) = CMDate i = i + 1 CMDate = CMDate + 1 Loop End Sub
Le code ci-dessus entrerait toutes les dates dans la première colonne de la feuille de calcul (à partir de A1). Les boucles continuent jusqu'à ce que la valeur du mois de la variable « CMDate » corresponde à celle du mois en cours.
Exit Do Déclaration
Vous pouvez utiliser l'instruction Exit Do pour sortir de la boucle. Dès que le code exécute la ligne « Exit Do », il sort de la boucle Do While et passe le contrôle à la ligne suivante juste après la boucle.
Par exemple, si vous souhaitez saisir uniquement les 10 premières dates, vous pouvez sortir de la boucle dès que les 10 premières dates sont saisies.
Le code ci-dessous fera cela :
Sub EnterCurrentMonthDates() Dim CMDate As Date Dim i As Integer i = 0 CMDate = DateSerial(Year(Date), Month(Date), 1) Do While Month(CMDate) = Month(Date) Range("A1").Offset (i, 0) = CMDate i = i + 1 If i >= 10 Then Exit Do CMDate = CMDate + 1 Loop End Sub
Dans le code ci-dessus, l'instruction IF est utilisée pour vérifier si la valeur de i est supérieure à 10 ou non. Dès que la valeur de 'i' devient 10, l'instruction Exit Do est exécutée et la boucle se termine.
Faire jusqu'à la boucle
Les boucles « Do Until » ressemblent beaucoup aux boucles « Do While ».
Dans "Do While", la boucle s'exécute jusqu'à ce que la condition donnée soit remplie, tandis que dans "Do Until", elle boucle jusqu'à ce que la condition spécifiée soit remplie.
Il existe deux types de syntaxe dans la boucle Do Until.
Faire [Jusqu'à condition] [Bloc de code à exécuter] Boucle
et
Faire [Bloc de code à exécuter] Boucle [Jusqu'à condition]
La différence entre les deux est que dans le premier cas, la condition Jusqu'à est vérifiée en premier avant l'exécution de tout bloc de code, et dans le second cas, le bloc de code est exécuté en premier, puis la condition Jusqu'à est vérifiée.
Cela signifie que si la condition Jusqu'à est VRAI dans les deux cas, le code s'exécutera toujours au moins une fois dans le second cas (car la condition "Jusqu'à" est vérifiée après que le code a été exécuté une fois).
Voyons maintenant quelques exemples d'utilisation des boucles Do Until dans VBA.
Remarque : Tous les exemples de Do Until sont les mêmes que ceux de Do While. Ceux-ci ont été modifiés pour vous montrer comment fonctionne la boucle Do Until.
Exemple 1 - Ajouter les 10 premiers entiers positifs à l'aide de VBA
Supposons que vous souhaitiez ajouter les dix premiers entiers positifs à l'aide de la boucle Do Until dans VBA.
Pour ce faire, vous devez exécuter la boucle jusqu'à ce que le nombre suivant soit inférieur ou égal à 10. Dès que le nombre est supérieur à 1o, votre boucle s'arrêtera.
Voici le code VBA qui exécutera cette boucle et affichera le résultat dans une boîte de message.
Sub AddFirst10PositiveIntegers() Dim i As Integer i = 1 Do Until i > 10 Result = Result + i i = i + 1 Loop MsgBox Result End Sub
La boucle ci-dessus continue de fonctionner jusqu'à ce que la valeur de « i » devienne 11. Dès qu'elle devient 11, la boucle se termine (comme la condition « Jusqu'à » devient Vrai).
Exemple 2 - Saisir les dates du mois en cours
Supposons que vous souhaitiez saisir toutes les dates du mois en cours dans une colonne de feuille de calcul.
Vous pouvez le faire en utilisant le code de boucle Do Until suivant :
Sub EnterCurrentMonthDates() Dim CMDate As Date Dim i As Integer i = 0 CMDate = DateSerial(Year(Date), Month(Date), 1) Do Until Month(CMDate) Month(Date) Range("A1").Offset( i, 0) = CMDate i = i + 1 CMDate = CMDate + 1 Loop End Sub
Le code ci-dessus entrerait toutes les dates dans la première colonne de la feuille de calcul (à partir de A1). La boucle continue jusqu'à ce que le Mois de la variable CMDate ne soit pas égal à celui du mois en cours.
Exit Do Déclaration
Vous pouvez utiliser l'instruction « Exit Do » pour sortir de la boucle.
Dès que le code exécute la ligne « Exit Do », il sort de la boucle Do Until et passe le contrôle à la ligne suivante juste après la boucle.
Par exemple, si vous souhaitez saisir uniquement les 10 premières dates, vous pouvez sortir de la boucle dès que les 10 premières dates sont saisies.
Le code ci-dessous fera cela :
Sub EnterCurrentMonthDates() Dim CMDate As Date Dim i As Integer i = 0 CMDate = DateSerial(Year(Date), Month(Date), 1) Do Until Month(CMDate) Month(Date) Range("A1").Offset( i, 0) = CMDate i = i + 1 If i >= 10 Then Exit Do CMDate = CMDate + 1 Loop End Sub
Dans le code ci-dessus, dès que la valeur de 'i' devient 10, l'instruction Exit Do est exécutée et la boucle se termine.
Pour chaque
Dans VBA, vous pouvez parcourir un ensemble de collections à l'aide de la boucle "Pour chaque".
Voici quelques exemples de collections dans Excel VBA :
- Une collection de tous les classeurs ouverts.
- Une collection de toutes les feuilles de calcul dans un classeur.
- Collection de toutes les cellules d'une plage de cellules sélectionnées.
- Collection de tous les graphiques ou formes du classeur.
À l'aide de la boucle « Pour chaque », vous pouvez parcourir chacun des objets d'une collection et effectuer une action dessus.
Par exemple, vous pouvez parcourir toutes les feuilles de calcul d'un classeur et les protéger, ou vous pouvez parcourir toutes les cellules de la sélection et modifier la mise en forme.
Avec la boucle « Pour chaque » (également appelée boucle « Pour chaque-suivant »), vous n'avez pas besoin de savoir combien d'objets se trouvent dans une collection.
La boucle « Pour chaque » passerait automatiquement par chaque objet et effectuerait l'action spécifiée. Par exemple, si vous souhaitez protéger toutes les feuilles de calcul d'un classeur, le code sera le même que vous ayez un classeur avec 3 feuilles de calcul ou 30 feuilles de calcul.
Voici la syntaxe de la boucle For Each-Next dans Excel VBA.
Pour chaque élément de la collection [Bloc de code à exécuter] Suivant [élément]
Voyons maintenant quelques exemples d'utilisation de la boucle For Each dans Excel.
Exemple 1 - Parcourez toutes les feuilles de calcul d'un classeur (et protégez-le)
Supposons que vous ayez un classeur dans lequel vous souhaitez protéger toutes les feuilles de calcul.
Ci-dessous, la boucle For Each-Next peut le faire facilement :
Sub ProtectSheets() Dim ws As Worksheet pour chaque ws dans ActiveWorkbook.Worksheets ws.Protect Next ws End Sub
Dans le code ci-dessus, nous avons défini la variable 'ws' en tant qu'objet Worksheet. Cela indique à VBA que 'ws' doit être interprété comme un objet de feuille de calcul dans le code.
Nous utilisons maintenant l'instruction « For Each » pour parcourir chaque « ws » (qui est un objet de feuille de calcul) dans la collection de toutes les feuilles de calcul du classeur actif (donné par ActiveWorkbook.Worksheets).
Notez que contrairement à d'autres boucles où nous avons essayé de protéger toutes les feuilles de calcul d'un classeur, ici, nous n'avons pas à nous soucier du nombre de feuilles de calcul présentes dans le classeur.
Nous n'avons pas besoin de les compter pour exécuter la boucle. La boucle For Each garantit que tous les objets sont analysés un par un.
Exemple 2 - Parcourez tous les classeurs ouverts (et enregistrez tout)
Si vous travaillez avec plusieurs classeurs en même temps, il peut être utile de pouvoir enregistrer tous ces classeurs à la fois.
Le code VBA ci-dessous peut le faire pour nous :
Sub SaveAllWorkbooks() Dim wb comme classeur pour chaque wb dans les classeurs wb.Save Next wb End Sub
Notez que dans ce code, vous n'obtenez pas d'invite vous demandant d'enregistrer le classeur dans un emplacement spécifique (si vous l'enregistrez pour la première fois).
Il l'enregistre dans le dossier par défaut (c'était le dossier "Documents" dans mon cas). Ce code fonctionne mieux lorsque ces fichiers sont déjà enregistrés et que vous apportez des modifications et que vous souhaitez enregistrer rapidement tous les classeurs.
Exemple 3 - Parcourez toutes les cellules d'une sélection (surlignez les valeurs négatives)
À l'aide de la boucle « Pour chaque », vous pouvez parcourir toutes les cellules d'une plage spécifique ou de la plage sélectionnée.
Cela peut être utile lorsque vous souhaitez analyser chaque cellule et effectuer une action en fonction de celle-ci.
Par exemple, vous trouverez ci-dessous le code qui parcourra toutes les cellules de la sélection et changera la couleur des cellules avec des valeurs négatives en rouge.
Sub HighlightNegativeCells() Dim Cll As Range pour chaque Cll dans la sélection Si Cll.Value < 0 Then Cll.Interior.Color = vbRed End If Next Cll End Sub
(Notez que j'ai utilisé Cll comme nom de variable court pour Cell. Il est conseillé de ne pas utiliser de noms d'objets tels que Sheets ou Range comme noms de variables)
Dans le code ci-dessus, la boucle For Each-Next parcourt la collection de cellules de la sélection. L'instruction IF est utilisée pour identifier si la valeur de la cellule est négative ou non. Dans ce cas, la cellule reçoit une couleur intérieure rouge, sinon elle passe à la cellule suivante.
Si vous n'avez pas de sélection et que vous souhaitez plutôt que VBA sélectionne toutes les cellules remplies d'une colonne, à partir d'une cellule spécifique (tout comme nous utilisons Ctrl + Maj + flèche vers le bas pour sélectionner toutes les cellules remplies), vous pouvez utilisez le code ci-dessous :
Sub HighlightNegativeCells() Dim Cll As Range Dim Rng As Range Set Rng = Range("A1", Range("A1").End(xlDown)) Pour chaque Cll In Rng If Cll.Value < 0 Then Cll.Interior.Color = vbRed End If Next Cll End Sub
Dans l'exemple ci-dessus, le nombre de cellules remplies n'a pas d'importance. Il commencera à partir de la cellule A1 et analysera toutes les cellules remplies contiguës de la colonne.
Vous n'avez pas non plus besoin que la cellule A1 soit sélectionnée. Vous pouvez sélectionner n'importe quelle cellule éloignée et lorsque le code s'exécutera, il considérera toujours toutes les cellules de la colonne A (à partir de A1) et colorera les cellules négatives.
Déclaration « Quitter pour »
Vous pouvez utiliser l'instruction « Exit For » dans la boucle For Each-Next pour sortir de la boucle. Cela se fait généralement dans le cas où une condition spécifique est remplie.
Par exemple, dans l'exemple 3, comme nous parcourons un ensemble de cellules, il peut être plus efficace de vérifier s'il y a des valeurs négatives ou non. S'il n'y a pas de valeurs négatives, nous pouvons simplement quitter la boucle et gagner du temps de traitement VBA.
Vous trouverez ci-dessous le code VBA qui le fera :
Sub HighlightNegativeCells() Dim Cll As Range pour chaque Cll dans la sélection If WorksheetFunction.Min(Selection) >= 0 Then Exit For If Cll.Value < 0 Then Cll.Interior.Color = vbRed End If Next Cll End Sub
Où mettre le code VBA
Vous vous demandez où va le code VBA dans votre classeur Excel ?
Excel a un backend VBA appelé éditeur VBA. Vous devez copier et coller le code dans la fenêtre de code du module VB Editor.
Voici les étapes à suivre :
- Allez dans l'onglet Développeur.
- Cliquez sur l'option Visual Basic. Cela ouvrira l'éditeur VB dans le backend.
- Dans le volet Explorateur de projets de l'éditeur VB, cliquez avec le bouton droit sur n'importe quel objet du classeur dans lequel vous souhaitez insérer le code. Si vous ne voyez pas l'Explorateur de projets, accédez à l'onglet Affichage et cliquez sur Explorateur de projets.
- Allez dans Insérer et cliquez sur Module. Cela insérera un objet module pour votre classeur.
- Copiez et collez le code dans la fenêtre du module.
