Salut loic et le Forum
Une macro dans se style devrait fonctionner suffit de l'adapter a ton application
Sub Rech_insere()
'
' Rech_insere Macro
' Macro enregistrée le 16/01/03 par Mytå
'
'
Cells.Find(What:="DERS1500*", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlUp, _
MatchCase:=False).Activate
ActiveCell.Offset(rowOffset:=1, columnOffset:=0).Activate
Selection.EntireRow.Insert
End Sub
Amitié Mytå º¿º