Bonsoir Valérie, vite fait car je pars du bureau
Sub Test()
Dim WS As Worksheet
Dim TwoLastWS 'As Worksheet
'Sélectionne l'avant dernère et la dernière feuille
Set TwoLastWS = sheets(Array(sheets.Count - 1, sheets.Count))
' sheets(Array(sheets.Count - 1, sheets.Count)).Select
For Each WS In TwoLastWS
'Copy la ligne pour l'insérer
With WS
.Range("a10").EntireRow.Copy
'Insére la ligne copiée
.Range("A10").EntireRow.Insert xldowm
.Application.CutCopyMode = False
'C pour dire que ça change
.Range("A11") = "NEW TEST"
'Je sais ça n'a fonctionné que sur l'avant dernère C bine pour ça que je pieure!!
End With
Next WS
End Sub
Bon WOUUUUUUUIK END !!
@+Thierry (qui a presque plus mal aux dents
))