Private Sub Worksheet_Change(ByVal Target As Range)
With [A1].CurrentRegion
If .Rows.Count = 1 Then Exit Sub
Application.EnableEvents = False 'désactive les évènements
With .Columns(3).Offset(1).Resize(.Rows.Count - 1)
.Formula = "=REPT(""à faire"",OR(IF(ISNUMBER(G2),(TODAY()>=EDATE(G2,6))*(TODAY()<=EDATE(G2,24))),IF(ISNUMBER(K2),(TODAY()>=EDATE(K2,6))*(TODAY()<=EDATE(K2,24)))))" & _
"&REPT(""suspendu"",OR(IF(ISNUMBER(G2),TODAY()>EDATE(G2,24)),IF(ISNUMBER(K2),TODAY()>EDATE(K2,24)),NOT(ISNUMBER(G2))*NOT(ISNUMBER(K2))))"
.Value = .Value 'supprime les formules
End With
Application.EnableEvents = True 'réactive les évènements
End With
End Sub