Sub MacroInsertLignesToutesFeuillesInsertionCodeLibellé() Dim Sht As Worksheet, Col As Integer, Lig As Integer
tata = InputBox("Nouvelle code?")
toto = InputBox("Nouveau libellé?")
'---------------------------------------
'feuille FT
' permet d'insérer uen ligne correctement sauf si ce n'est pas la 1ère ligne de la liste car dans ce cas-ci-on utilise macro1
' Mémoriser la colonne et la ligne sur laquelle on se trouve dans la feuille
Col = ActiveCell.Column: Lig = ActiveCell.Row
' Pour chaque feuille du classeur
For Each Sht In ThisWorkbook.Sheets
' Si le nom se trouve dans la liste des feuilles valides
If InStr(1, "FT,FS,FSB,FTY", Trim(Sht.Name)) > 0 Then
With Sht.Cells(Lig, Col) ' Avec la celulle active définit plus haut
.EntireRow.Insert xlShiftDown 'Insert une ligne au dessus
.EntireRow.Copy ' Copie la ligne active
With .Offset(-1).EntireRow 'Passe les formats et formules à la ligne insérée
.PasteSpecial xlPasteFormats
.PasteSpecial xlPasteFormulas
Range("E" & Lig & ":F" & Lig).ClearContents
End With
.Offset(0, 2).Value = tata
.Offset(0, 3) = toto
Application.CutCopyMode = False
End With
End If
Next Sht
End Sub