* Bonjour *

débutant en VBA, j'ai besoin d'un code qui me permette sur une colonne, d'inserer une ligne, au dessus de chaque cellule contenant des caractères gras.

Merci d'avance de votre aide

j'ai proposé le code suivant, mais quand j'ai 2 cellules (avec caractères en gras) sur 5 par exemple qui sont les unes en dessous des autres, tout se décale d'un coup, c'est à dire les 5 en même temps:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
Sub inserersigras()
 
Dim vcellule As Object
 
For Each vcellule In Selection
If vcellule.Font.Bold = True Then
    Selection.EntireRow.Insert
    End If
    Next
 
 
End Sub
Merci de votre aide