Sub Test()
On Error Resume Next
ColLignesOùCondR1C1(CelDéb:=[A2], CondR1C1:="AND(ISEMPTY(RC1),RC8=" & CDbl(Date) & ",ISEMPTY(RC11))").Value = "À COMMANDER"
ColLignesOùCondR1C1(CelDéb:=[A2], CondR1C1:="AND(ISEMPTY(RC1),RC8=" & CDbl(Date) & ",NOT(ISEMPTY(RC11)))").Value = "SAISI CE JOUR"
ColLignesOùCondR1C1(CelDéb:=[A2], CondR1C1:="AND(ISEMPTY(RC1),RC8<" & CDbl(Date) & ",ISEMPTY(RC11))").Value = "À VÉRIFIER"
ColLignesOùCondR1C1(CelDéb:=[A2], CondR1C1:="AND(ISEMPTY(RC1),RC8<" & CDbl(Date) & ",ISEMPTY(RC11))").Value = "À VÉRIFIER"
ColLignesOùCondR1C1(CelDéb:=[A2], CondR1C1:="AND(ISEMPTY(RC1),RC7=""non géré"",ISEMPTY(RC11))").Value = "À COMMANDER"
ColLignesOùRelat(CelDéb:=[A2], ColQuoi:="A", OPé:="=", Valeur:="").Formula _
= "=IFERROR(INDEX('ReceptionReappro'!A:A,MATCH(B2,'ReceptionReappro'!C:C,0)),"""")"
End Sub