Option Explicit
Sub Interventions_insérer()
Dim mem As String
Application.ScreenUpdating = 0
mem = "Intervention " & Sheets("Feuil1").Range("I8").Value
Sheets("Feuil1").Range("d13:j151").Clear
With Sheets("Feuil2")
.Range("i16").Name = "ici"
.Columns(9).Find(What:=mem, LookIn:=xlValues, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
True, SearchFormat:=False).Offset(12, 0).Resize(, 7).Name = "là"
.Range("ici:là").Copy Sheets("Feuil1").Range("d13")
End With
ActiveWorkbook.Names("ici").Delete
ActiveWorkbook.Names("là").Delete
Application.ScreenUpdating = -1
End Sub
Partager