Sub mefcBouteilles()
Dim DerLig As Long, Sht As Worksheet
' Définir la feuille de destination de la MFC
Set Sht = Sheets("Bouteilles")
' Mémoriser la dernière ligne remplie
DerLig = Sht.Range("A" & Rows.Count).End(xlUp).Row
' Avec les cellules de la colonne A à M
With Sht.Range(Sht.Cells(DerLig, 1), Sht.Cells(DerLig, 12))
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=ET(" & Cells(DerLig, 1).Address & "<>"""";MOD(LIGNE();2)=0)"
With .FormatConditions(1).Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
.FormatConditions(1).Interior.ColorIndex = 24
.FormatConditions.Add Type:=xlExpression, Formula1:="=" & Cells(DerLig, 1).Address & "<>"""""
With .FormatConditions(2).Borders
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With
End Sub