Sub derListe(liste As Range, quoi)
Dim xrg As Range
Set xrg = liste.Find(what:=quoi & "*", LookIn:=xlValues, lookat:=xlPart, _
SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, MatchCase:=False)
If Not xrg Is Nothing Then
xrg.Select
' puis option 1 - insère une ligne uniquement dans la colonne de recherche
xrg.Offset(1).Insert xlShiftDown
' ou bien option 2 - insère une ligne complète
' xrg.Offset(1).EntireRow.Insert xlShiftDown
Else
MsgBox """" & quoi & "*"" -> non trouvé."
End If
End Sub