Bonjour,

En surfant sur la toile, j'ai trouvé le code ci-dessous qui me permet d'insérer 2 lignes entre chacune des lignes sélectionnées et qui inscrit automatiquement un "X" dans la première colonne. (grâce aussi à l'aide d'autre internaute...) Parfait cela fonctionne bien, je l'ai testé dans un fichier "contenant des infos sans rapport avec ce que je dois faire à la maison).

Mon problème est le suivant :
Quand je colle un de mes tableaux dans la feuille du fichier test (en laissant les données présentes sur cette feuille) je peux sans problèmes exécuter la macro dans mon tableau nouvellement collé dedans!
Mais quand je supprime toutes les autres données et ne laisser que mon "beau" tableau la macro ne fonctionne plus...

Quelqu'un pourrait-il m'aider à faire en sorte que ce code VBA fonctionne dans tous mes fichiers?

Voici le code:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub Insert2lignes()
Dim x As Integer
For x = Range("A65536").End(xlUp).Row To 1 Step -1
If Not Intersect(Range("A" & x), Selection) Is Nothing Then
Rows(x).Insert Shift:=xlDown
 
Cells(x, 1) = "X"
Rows(x).Insert Shift:=xlDown
 
Cells(x, 1) = "X"
 
End If
Next
End Sub