For Each cel In Range(taplage)
Selection.FormatConditions.Delete
cel.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:='=''Traduction1'''
cel.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:='=''Traduction2'''
cel.FormatConditions.Add Type:=xlCellValue, Operator:=xlEqual, Formula1:='=''Traduction3'''
Next cel
End Sub