Private Sub Workbook_Open()
Sheets("Feuil2").Activate
For L = 4 To Cells(65536, 2).End(xlUp).Row '
If Date >= DateAdd("yyyy", 1, Sheets("Feuil2").Cells(L, 12)) Then
'Mise en forme de la cellule
Cells(L, 1).Font.Name = "Wingdings"
Cells(L, 1).HorizontalAlignment = xlCenter
Cells(L, 1).Value = "o"
End If
Next
End Sub