Sub copie_réalisé()
Dim i As Long, derlig As Long, plage As Range, plg As Range
Dim shSource As Worksheet, shDest As Worksheet
Set shSource = Sheets("inventaire par salle")
Set shDest = Feuil11 'Qui est la feuille 2 (feuille2 est le nom de l'onglet) - Feuil11 est le CodeName de la feuille
shDest.Cells.Clear
With shSource
.Range("A1:L3").Copy shDest.Range("a1")
derlig = .Range("d" & .Rows.Count).End(xlUp).Row
For i = 4 To derlig
If .Cells(i, "J") = "réalisé" Then
Set plage = .Range(.Cells(i, "A"), .Cells(i, "L"))
plage.Copy shDest.Cells(i - 1, "A")
End If
Next i
End With
With shDest
Set plg = .Range("d4:d" & derlig)
.Name = "Doc. Unique du " & Format(Date, "yyyy-mm-dd")
End With
plg.SpecialCells(xlCellTypeBlanks).EntireRow.Delete
End Sub