Sub GARETH()
If Sheets("feuil2").Range("M4").Value = "" Then Set Dest = Sheets("feuil2").Range("L4") Else Set Dest = Sheets("feuil2").Range("M60000").End(xlUp).Offset(2, -1) 'Définit la zone d'arrivée
Set Var = Sheets("feuil1").Range("B4:K" & Sheets("feuil1").Range("C60000").End(xlUp).Row)
Set Dest2 = Dest.Resize(Var.Rows.Count, Var.Columns.Count)
Dest2.Value = Var.Value
Dest2.HorizontalAlignment = xlCenter
Dest2.Font.Bold = True
Dest2.End(xlDown).Offset(1, 0).Resize(Dest2.Rows.Count, Dest2.Columns.Count).SpecialCells(xlCellTypeBlanks).Delete
Dest2.Offset(1, 0).Resize(, 1).Clear
End Sub