@grisan29:
Ton nouveau code a l'air de fonctionner...
Cependant, il manquerai 2, 3 modifs pour que se soit vraiment parfait !!!
Modifs :
1°) Centrer le texte dans cellule "B". (dans nouvelle ligne ajoutée)
2°) Format "Comptabilité" dans cellule "H". (dans nouvelle ligne ajoutée)
3°) Terminer en sélectionnant la cellule "A". (dans nouvelle ligne ajoutée)
4°) Démasquer les nouvelles lignes ajoutées (Car les cellules ne faisant pas parties du tableau sont masqués à la base).
Le code de grisan29:
Sub test()
Dim lig As Integer
With Sheets("Feuil1")
lig = .Range("A65536").End(xlUp)(2).Row
If lig < 6 Then lig = 6
'insertion d'une ligne
.Range("A" & lig - 1 & ":H" & lig - 1).Copy
.Range("A" & lig).Insert xlShiftDown
.Range("A" & lig & ":H" & lig).ClearContents
End With
End Sub
Et là ce serai vraiment top !
@ MFerrand:
J'ai essayé d'intégrer tes nouvelles lignes de code mais sans résultat...
Je me plante sûrement !!!
Pourrais-tu les intégrer dans mon code sltp ???
Se serai plus clair pour moi n'étant pas un pro...
Le but est d'automatiser l'insertion de nouvelles Réfs dans le tableau... ni plus... ni moins...