'insertion d'une ligne vide entre différent type de plat
For i = DerLig_f2 To 2 Step -1
If f2.Cells(i, "F") <> f2.Cells(i - 1, "F") _
And (f2.Cells(i, "B") = "midi" Or f2.Cells(i, "B") = "soir") Then
f2.Rows(i).Clear
ElseIf f2.Cells(i, "F") <> f2.Cells(i - 1, "F") Then
f2.Rows(i).Insert Shift:=xlDown
End If
Next i